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The local area network software consists of e server 
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A. BACKGROUND 


4 critical requirement for today’s office end lebdoratory 
environments is the sharing of erpenrsive data and resources. 
A network cf microcorputer workstations kod ec aa 
share data ty transmitting files and messages tetween users 
and share pheripheral resources such as printers by 
scheduling users in the rost efficient manner. In the lato- 
ratcry environmert in particular, it is especially important 
and desirable tc share data, experiments, and software 
developrert arong lab members and to provide the means to 
distribute data tc 311 members from a single source such as 
the_Ttrofessor Er Broadcast transmis- 
sion from one workstation to ell workstations of files or 
messages, or using one workstetion as a 'bvlletin toerd/ to 
stcre messages over a period of time for access by all 
memters, both serve tnis purpose: A testbed for research 
in data and resource sharing in the laboratory environment is 
a MULES tased computer configuration which permits an 
single toard computer to communicate with tnree input “owe 
boerds, Sach containing elz tIS 2e POr: This configures 
ticn serves as a concentratcr for a star cluster local area 
“SU Ww On. which can ccgnect up to twenty “four HOME 
competitle devices. 

This thesis is, in many ways, a compenion to the thesis 


dene ty Lt. Cmdr. Robert Hertmren and Capt. Alec Yasinsec, 


[Ref. la Their thesis involved the implementation of 2 
Bo Star cluster local area network of microcomputers 
connected te a Vax 11/7&@ computer over the FTHFRNIT communi- 
caticns device. The Vax 11/782 system operating under the 
UNIX operating System provides access tc the ARPANET wide 
area network. Their local area network is operated under the 
NEPOS environment and involves the use of various protocols 
Meeessenyeror communications with ARFANET: 

ine aiw of this thesis rs to provide an efficient data 
communications environment limited to the local area network 
of 2-100 workstations running under the CP/M-85 operating 


system. 


Beer nos OT DESCRIPTION 
m uncposed Cape bilities 
2. Local File Transfer 
Any microcomputer should be atle to transfer a 
file to any other microcomputer asynchronously. Additional- 
ly, any ricrocorputer should be able to “broadcast” files to 
multiple microcomputers simultaneously. 
b. Local Message Transfer 
Any microcomputer should te able to transfer 
messages in the same manner es files, with the additional 
coral ty of having one microcomputer serve as a bulletin 


board” for the others. 


ez Directory Transfer 


Any microcomputer should te ebtle to trensfer a 
directory in the seme manner es messages and files. 


qu Online User Identif reatie 


Any microcomputer =smoulam De eames tomo c cae 


net status’; the identities of all currently ective work- 


stetions in tbe network, et eny given time. 


Za Target Hardware 


The preposed local area network consists of up to 
twenty four Z-1¢@@ microcomputer worxstations “conrect ea 1702 
RS-232 communicetions ports to a central MULIIBUS  beseg 
single board computer, which acts as a central switchboard to 
Provide communicetions tetween the workstaticns. 

on Software 

All the applications software for the microcomputers 
and the fprocessing software for the Single board conp unci 
acting as a switchboard has been written by the author Mie. 


this thesis. 


C. STRUCTURE OF THE IEE: 

The majority of tnisithesis is new ereer aneme cd Cuma cee 
implements the network. The eccompenying text provides system 
description, design decisions, problems encountered, end 
operating and maintenance procedures. Chapter II descrites 
the hardware of the system, Chapter III details the &@&E CPU, 
ani Chapter IV explains the CP/M-86 operating system. A 


description of the JANUS/Ada lenguege detailing useful 


10 


features, problems encountered, and lessons learnec from the 
prospective of a newcomer to the language with reference to 
the full ADA language is provided in Chapter V. Chapter VI 
expleins the design methodology ard the details of the 
software implementation with descrirtions of each major 
module. 

AN m-rrendaeeseprovidemUvhe rrogeram code, user ana mainte- 


nance manuals, e glossary, enc a bitliography. 


Sek 


ll. SESW 


A s LESS CAS 

The 2€/12A single toard computer is a complete ccmvuter 
system ona single printed Circuit Coard ee 
tit 88486 CFU, 2k, expandable to 4K, bytes of dynamic RAM, a 
serial communications interface, three programmable parallel 
I/O ports, programmable timers, priority interrúpi eon aon 
MULTIBJS interfece control logic, tus Expansion drivercmicm 
interface with cther compatitle MULTIEUS expansion toar i 


end up to 16K tytes of ROM. Tatle 2.1 lists the possi tiles s 


port addressing asignments. 


E eh 
ge /12A le 


I/O Address IC Function 
COC? 82594 write: ICW1, OCW2 £ OCWI 
or (20C4 Programmable read: Status and Poll 
Interrupt 
0802 Controller write: ICW2, ICW3, ICW4, 
OCW 1 
or £0C6 read: OCW1 (Mask) 
coca e2554 Witte: pomum (J19 
Programmable read: fp port ATI) 
COCA Peripheral write: port B (J1) 
Interface read: port B (J1) 
2668 write: port C (J1) 
read: port C (JISM Stan 
C2CF write: Control 


read: none 


— -—- emm ` vm emm "7 emm mme o emm vm emm vm emm em emm mr om emm emm mmm eme eme emm eme emm emm vm emm mm ` vm ` emm ie ee a pmr emm, 
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ee De 8255 write: Counter @ 


Programmable (load cnt/N) 
Intervel read: Counter 2 
CO D Tirer write: Counter 1 


(load cnt/N) 
read: Counter 1 
GC DA write: Counter 2 
(loed cnt/N) 
read: Counter Z 
Qo DG write: Control 
read: nore 


m m — mmm "ez wm "es u — i ie eee emm á ee emm emm emm Gp emm eg e emm å å pp emp emm emm emm em emm emp emm emm emm em emm pp emm emm i i ee emm 


GO TO a2514 write: Data (J2) 
or ZØDC USART read: Data (J2) 
CEDA write: Mcde/Commeand 
or ADF read: Status 


The E5486 Eight Channel Communication Expansion Board is a 
fully programmatle synchronous/esynchronous serial communica- 
mu channel with 8S2s2C interfaces connected to IC2€51 
US4RTs for serial communications with other devices, end is 
compatible with the MULTIBUS system. The total address space 
for each bcard is €4, or 40 Eex, locations. Each toard has a 
tase address that is selectatle ty DIP switches on the toard 
end is set to 2122 Hex for this implementation. Disregarding 
the bese address for the moment, toard 1 would start at 0, 
Lara at 4€ rex. and so on. Tbe primary locations of 
interest are the data register, the status register, the mode 
register, and the command register. These locaticns are Kr 


momeeportwec, 4-7 for port 1, and so cn up to 22 lex for the 


eight USARTs. The remaining address locations are (cer inten, 
rupt handling ard are not used in this implemertation. The 


Lort addressing 15 shewn ir Tatle 2-2. 


SR 2 


USART AUDRESSING 


Address (Hex) Function 
R/W: Sa tus "^. R/W s q/w: 
Data y: Synci/Syrce/Dle Mode Command 
2-3 " i 7 i 
8-7 k - 2 
H. 
C-F 9 M 
1751: N , ý 
14-17 
18-12 f i i 
1C-1F ` ^ 7 Ñ 
Qu oma UE Port reset register (write only) 
21,29, 51 13% N/A 
S M Transmit interrupt register 
DELE OUI Transmit interrupt requests 
24,20, come Transmit irterrurt mask 
Lo eee, OU Transmit interrüpt reguests 
QE OIL Ce Ring detects 
cQ EE N/A 


eee eee es ee gf em emm gr eo ii ee ee ie eee ieee ieee i eae ie om ge 


RE 

The Zenith Z-12V is a dual processor computa 
with. either one or two 2.25 inch fleppy dso rives onder 
Winchester hard disk arive providing up to. 750k tytes TE 
directly addressatle RAM. It is powered by a 5MHZ clock. 

The Z-190's main circuit board contains the 8085 and 8988 
CFUs end the S-100 IEEE ES€ tus. It hes the capacity stom 


192K  tytes of memory. Also contained on the main boerd is 
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MI Are y board Processor, two RS-Z32 serial  interfeces 
Siommeomn eclors, c2e parallel Trtertace and conrector, and the 
w eo Circuit toeard interface. 

Boreas RE controller and 
supports 2 tit raepped video system with up to three tanks of 
52K tyte memory devices for red, green, and tlue. 

Io py sirve controller, which can support up to 
fonr 5.25 nee and four eight inch drives, and the Winchester 
disk cortrcller are on separate cards and are “ach connected 
DIT the slots of the S-10¢ bus. 

CTner hardware Pee One oot interest eE 
SSA ros remmetle Interrupt Controller, the 68421 Peripheral 
Interface Adapter, the 8253 Progranmatle Irterval Timer, anà 
the 2651 Fnranced Progrermatle Communications Interface. The 
2-10€€6 has two Serial ports, labeled Jl, the printer port, and 
Dune modem port, roth of which are connected through the 


zril interface. 


III. ER, ENER BEE ETT 


hH 

The 86/12A single toerd computer uses the INTEL 8286 
micrcprocessor for its CPU (Centrel Processing Unit). The 
EPEG is a high performance, general purpose 16 tit micro- 
processor. It has a 29 bit, address tus, allowing access tok 
full megabyte of memory. Since the largest register in the 
3&5 is only 1€ tits, it uses segmentation to form 20 bit 
addressess from the four 16 bit address registers; the CS5 
(Code Segrent), the DS (Deta Segment), the SS (Stack 
Segment), and the ES (Extra Segment). These four registers 
reside in the BIU (Bus Interface Unit). 

The FU (Fxecution Unit) contains nine 16 bit registers 
interfaced to a 1€ bit data bus, four of whick are byte mom 
word addressable; the AX (AE, AL), PX, CX, and the DX, and 
four of which are only word addressatle; the SP (Stack 
Pointer), the BP (Base Pointer), the SI (Source Index), and 
the DI (Destination Index). The remaining register is the 
flag register which has nine usatle tits; Carry, Farity, 
Auxiliary Carry, Zero, Sign, Trap, Interrupt, "direction mE 
Overflow. Lastly, there is one 16 tit IP (lastructiga 
Pcinter) register. 

The BIU and the EU operate asynchrorously in the 892785. 
Additionally the BIU has en instruction object code queer 
These two features combine to virtually eliminate instruction 


fetch time. By fetching the next instruction, while the 
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pnus bersmeNdscodedg.agsdgcerecuted, ard loeding it in a 
queue, the &#&E ensures that there is always an instructicnr 
Neo bae instent it is required. Only when a jump instruc- 
Pases the current instruction Sequence to te changed, 


Moetvre instruction queue flushed. 


BTI ER 

DEE rit S285 CPU and tke 16 bit 
e eS CPU. s TT DT Interest to this 
THESIS. the @@8@ is cempatitle with the 8¢@&S and is (to the 
prrenmer) virtually identical. In particular, the 822€ 
programmable registers and addressing modes are exactly the 
same. mi Meni ticewtecit ference 15 tnet it has an 8 tit 
data tus versus the 16 bit dete bus of the 8286. 

The differences between the two CPUs are evidenced in 
eect @on times. The @@88 has a four byte instruction queue 
Bai the six byte queue in S255. This results in more 
ote fetenes per instruction and slows down instruction prc- 
cessing. The @ tit deta tus requires tre &088 to take two 
piss cycles whenever the 8286 woulcC have used only one to 
feten 16 tits of date. Mer execution time values are 


Patel) Ca ly. 
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IV. THE OPERATING today 


CF/M-88 is an operating system designed ty Digital 
2esearch for the &@8E and 8288 sixteen bit microprocessor. It 
contains three program modules: the CCP, the 550r NS 
IOS. Entry to the BDOS 1s provided thrceugn (ie Seresen ee 
software interrupt #224 (84 Hex), while entry to. ties me NE 
provided ty either a jump vector located at offset 2500 Hex 
from the operating system tase, or ty use of the HUDD: 
function #&@. For this implementation, only entry to RENE 
was required.  RD20S functions were used for keyboard input, 
console Output, ` ard file operations. Tatle 231 llis Use 
Function call used with entry end return parameters 
indicated: 

Access to files in CP/M-86 is achieved ty use of the File 
Control Bleck (FCB) whose format is shown in Tatle 4.2. Each 
FCE is identified ty specifying its relative ofiset PODER NE 
date segmrent register. When reading from or writing to 4 
file, EDOS uses secuential 128 tyte records to trarsfer 
information from the file into memory et the current Da 
Merory Address (DMA) and vice-verse. The DMA can be specified 
ty the user as the relative offset from a specified or 
default DMA base. 

CP/M-SE uses one directory entry per 16K bytes of Mame 
data, termed en extent. During sequential reads end writes 
the “cr” field of the FCB is incremented for each 128 tyte 


record until tre next extent is required. Unless mo more 


Le 


PROS 


TELE 4.1 


FUNCTIONS 


E 
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(apos 
Quse: 


GL. 


D 


M 


ps 


GL: 


11H, 


Due 


Dx 


DE 


BR 


Ten, 


LES 


TOP, 


DI: 


DX: 


Ascii Char 
SFF: 
CFFH 
Snar 


Inu: 


(Output) 


Selected Disk 


FCE Offset 


FCR 


Offset 


E Offset 


ROE VOL iSet 


FCEsOftset 
FCE Offset 


Offset 


Offset 


(Status); 


Console Output 


Direct. Console 1/0 


Reset Disk System 


Select Disk 


Oper File 


Close File 


Search For First 


Seerch For Next 


Delete File 


Read Sequential 


write Sequential 


Make File 


Set IMA Address 


hose Char. 
status 


None 
None 
AL: Return 


Code 
(2-3, OFFH) 


AL: Return 
Code 


AT Directery 
Code 


AL: DITECtTCOry 
Code 


AL: Return 
Code 
(2, ØFFH) 


ALS Retina 
Code 
SR 


AL: Return 
Code 
G 1 12 ` 


AL: RREN 
Code 
(2, 1c 
OFFH) 


TABLE 4.2 
FCE FORMAT 


ome wee ss ii ii i iis ee i om i ee i emm 


mee e E e «e CE OP ae ae SE em GRP ae > «e MER => OOP ee eee see eee mm se ee us eee eee ele 


dr: drive code (8 - 16) 
Ø => default drive 
1 => drive Å 
2 => drive E 


16 => drive P 
f1...f8: File name in Ascii upper case 
ti = tá: rile tyre in ASCii upper case 
(tr ntcnPit - 1o QM US 
(t2 hieh bit = 1 => Syoutile,-no Die 


ex: Current extent numter (? - 31) 
Set to Ø by user before file 1/0 

el: Internel use 

si: Internal use, set to Ø on Make, Open, 
and Search 

rc: Record count for ex (Z - 128) 

dð.. .dn: CP/M-EE internal use 

CT: Current record for Read/Write Sequential 


Set to 2 by user 
rg —- r2: Optionel random record number 


record or directory space exists, the next extent is auto- 
matically opened. Then the cr’ field is reset to zero and a 
new directcry entry for the new extent is created. 

when directory searches are made, the 128 byte record 
containing the matched entry is placed in memory at the DMA 
address. For files with multiple extents, the first direc- 


tery entry ls sme Ue There ere four entries per record. 


2€ 


uum ocartlonoDi tne matched sentry 15 computed by multiplying 
"E PL returned by tke function cali by 32 end adding it 
pPomvore NMA address. 

DDTEG proved to te an invaluatle tool to the development 
Mais thesis. DUTSG, a utility program supplied with CP/M- 
SC, is e dynemic, interective detug end test program for the 
CF/FN-8€ environment. It worked excellently with both the 
Lizh level JANUS/Ade code anc the assembly language sut- 
routines interfaced with the high level code. LISASMSE, the 
disassembler prcvided with the JANUS/Ada system, presented 
Mia en level code in its post-compiled assemtly form whicr 
could then be Getuggec using DDT2€. Com letion mors 
thesis would not have been possitle without the use of DDTEO. 
Its only drawbeck was a tendency to “slow” down e program to 
the point where it would work under DDT8€C, tut would fail in 
the real time environment outside  LDT&6, which ceused 
understendable confusion. 

moditionel detailed information about  CF/M-8€ can te 


ma in [refs. 2 & 3]. 
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V. THE FROGPAMMING LANGUAGE 


ADA is the Department of Defense’s mandated language 
for emtedded ccmputer systems. According to DOD directive 
5300.31 [Ref. 4], “all mission criticae! defense systems that 
enter advanced develorrent status efter 1 Jan &4, or that 
enter full scale development after 1 Jul 84" will te coded 
in ADA. Introduced A 1 form in ceptemrer cuc, D WT 
has inspired much activity, discussion, anda debate. Due to 
its large size and complexity, commercial compilers are only 
now tecoming aveilabtle. 

JANUS/Ada, an implementation designed for microcomputers, 
was chosen for this project because of its availability, and 
its suitatility to systems programming tasxs. Althcush rot 
fully ADA compatible in its treatment of strings, USE 
inline ASM statements, or the cata type Byte, and lacking the 
capability for exception handling or concurrent tasking, 
research in the JANUS/Ada implementation should prove 
invaluable to the effective use of the full language itself; 
a language destined to te the Tepartmert of Defense's stan- 
dard for emtedded systems. 

This author’s programming experience prior to this 
project was limited to only the basics of Pescal end Assemtly 
languages. According to Bernard [2ef. 5], my experiences car 


best be described ty: 


While reople who have a high level language should te 
atle to learn what is referred to as ‘the Pascal subset’ 
OfeeADA with about four weeks of full-time study, mary 
educators report that it takes six ronths to learn to make 
effective use cf the language. 

Also required are a firm krowledge of structured program- 
fone wand scitware engineering. It is clear, however, that 
the ADA designers were correct to base the languaze syrtax on 
Pascal, a language designed end recognized as the stendard t9 
Boeaee studeits atout stmuctured sprogremrirg. 

be mosteirpressive and useful control structure in APA 
is the 'Loop' statement. The atility to exit a loop wherever 
E whenreyer desired, comrtined with the traditional cor- 
structs of “For” and “While”, makes the Loop statement 
applicetle to en elmost infinite set of cesign structures ard 
acd surports the  ccncepgt of structured, easy to read 
programming. This feature alone separates ADA s control 
res from Pascal, Cobol, Fertran, end others. 

JANUS/Ada’s resident assembly language interface is also 
extremely useful. Poutines stnet require higi sreeda Tand 
TTT Or specific tit/tyte reripuletior could te coded 
in assembly language and celled from the high level progrem. 
This feature answers the traditional systems programmer’s 
maedmeroreccntrol of, end access to, the specifive machine. The 
Sein which assembly code could te used in conjunction 
with high level JANUS/Ada code was very important to ttis 


EA most allof tne I/O and file cperationrs required 


in the fprogrems were coded in assemtly language. This was 


partly for speed end efficiency end pert Slee ys] ee 
the I/O ane file operations tullt into JANUS/Ade would not 
work (for reasons undiscovered) after a singie call to the 
CP/M-8€ operating system was issued. 

ADA’s use of packages as the unit of program modularity 
is en important step in the evolution of structured progrem- 
ring languages. Packeges contain date, procedures, end/or 
functions that for reasons of a particular program Ss rodular 
design are grouped together to forr a unit. A program's 
various packages are then linked together for executicn. 
Packages support efficient modular design ard allow for the 
effective construction of program litraries of frequently 
used routines ard data structures for programmers to use. 
Date and routines are mece availeble to users and other 
packages through Specifications, which provide all the neces- 
sary information for their use while hiding the details of 
the implementation, thus supporting the principle of 
inc ormqtlomnebpl t0 

Packages are also tne main instrument of separate 
compilation, which is becoming 2 requisite feature of modern 
programming langueges. Unless the vehicle for communication 
between linked packages, the specification, is change, 
modifying a single packaze requires only its recompilaticn 
and rot the recompilation of packages referencing it op 


referenced ty it. 
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seperate completan”. Ss particularly important in 
JANUS/Ada, and ty extensior, ATA, tecause the size and com- 
pee Of == the language dictates that compilers for it te 
also large, complex, and reletively slow. This causes soft- 
ware developmert rrotlems cf time and storage. 

The compiler itself, while a tit slow, provided helpful 
compile and run tire error checking. Because ADA (end 
JANUS/Ada) is a strongly tyle2 languege, en efficient 
eper should te able to detect a majority of errors at 
compile time, therety saving development time. The JANUS/Ada 
eeni lerc oes so and even corrected certain syntax errors 
B EUPEPrciuclng a wcrkirg program. While it 15, in zenerel, 
Mime oteule to produce simple yet completely explanatory error 
messeges, the JANUS/Ada compiler does a noteworthy job. 

[Ref. €], provided with the JANUS/Ada system, wes more 
than adequate cverall. It was not sufficient (and edmitted 
SC; to teach the JANUS/Ada language, but its manuals and 
Eulucescoen the compiler, the assembler, the linker, etc. 
were first rate. Its description cf litrary packages was also 
very helpful. (Ref. Arvid the necessary informas 


muonmeetempecin learning ALA in a very practical and concise 


Perens 
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à. METHODELOG. 

This author’s inexperience with the hardware, the 
programming language, and software development Of thus 
nature (systems programming) and this scope (larger by far 
then anything aettempted before), necessitated comolete 
decomposition and moduldri2avtoncot vhs uM The prina 
ciple of tcp-down programming was used as the protlem was 
trcken into smaller and smaller functionel elements until the 
most basic functions were identified. Such functions as Basu 
input and cutput, opening and closing files, and intertacimms 
assembly larguage with JANUS/Ada were coded and tested. 
These functional entities were combined in a tuilding block 
manner, until larger and more complex functions. such ees 
character transfer and file transfer tetween two Z-1ØØ were 
completed. Eventually, interfece with the concentretor was 
achieved as the system tegan to take shape. The system wes 
finished when the highest levels of the program hierarchy 


were finally completed ard all the decomposed modules of the 


problem were coded, tested, and linked. 


BS ESMAS SD SACO 
The probler of designing a star cluster local area 
network mey te decomposed into two perts: 
les Programming the Concentrator. 


2. Frogramming the 2-180. 
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1. The Concentretcr 

onol of tke concentrator is to. process network 
commands from the Z-12@s5, estatlish and maintain data com- 
munication connections, and route commanis and data tetween 
Z-122s. mhe ctverk principle of circuit switching mis 
Eur isemeuted to rcute the commands and data. The Concentrator 
establishes and maintains data communicaticn connections 
tetween the source and destination Z-100(s) until the entire 
Meermprocess or circuit’ is completed. 

Within the Concentrator the protlem may te further 
decomposed  intc two parts. Tne Concentrator must polr all 
the torts in the network upon initiation and after Sach 
mosunectyon is terminated, to determine if any Z-129s are 
ready to participate in the network, and it rust establish 
and Maintain data communication connections. 

T T L the Concentrator is equipped with three 
cece PRIC erpansion boards foer a total cf 24 available ports. 
Network expansion can be accomplished ty adding more expan- 
sion toards and changing the value of the constants  'machro" 
end 'boerdno' eccordingly. 

The Concentrator pclls each port looking for the 
“active” signal from a 2-190. If there is no response 
as finite period of time, the Concentrator moves on. to 
mer rert port. If the “active” signal is received, tne 
IT D Storrs and determines if there are processes 


wei tor. this 2-102 from other Z-100s, If there ere no 
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processes waiting, the Concentrator ae chione eneee 
command information from the polled™/- rooma estables 
the data communication coprecticon Sor theNMpEtouss ed NOM 

If there ere processes waiting for tne ¿-129 teing 
polled, the Corcentrator decodes the firs teproceso tien 
contects the sender of that waiting process, end estetlishes 
a data communication connection feor the transferred ODE NS 
waiting process. Upon transfer of the first waiting 
process, or if the sender is no longer active; (he wales 
process is destroyed and the Concentrator returns to the 
polled Z-1?@ in order to decode the sutsequent command infor: 
mation, and estatlish the data communication connection 
for the originel requested process. 

The Concentrator will satisfy at most one waiting 
process per polling cycle; a polling cycle is one loop eroume 
the network of twenty four ports. If there is more than one 
process waiting in the queue for a particular 7Z-10@, the one 
which is first in the queue (first come, first served) is 
serviced during one polling cycle. The next queue element is 
serviced during the next polling cycle and so ES 
are no more waiting processes. 

There are two methods cf transferring commends end 
data in this design: 

1. Direct Z-2190009-9068— Z2 PM 


2. Broadcast to all active Z-1Øðs in the network. 
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The Z-1@@ transmits to the Concentrator the trensfer- 
ring methcd and the Concentrator uses trat method for all 
mere imessadee, Orwaireevery transferreal: 

Seo cecdvameconmunicdtlon Connection i1¢ established, 
pues Concentretor 2cts as a trensperent rathway, transferring 
commands end dete without regard, and looking only for a 
sequence of four end of process codes (2F*1h) from the desti- 
naticn 2-1909(s). Receivirg this sequence, the Concentrator 
terminates the connection and resumes polling where it left 
ott. The Concentrator polls in an endless loop, stopping 
meee oO prccess. requests. from the ports of the network. 

For single trarsferrals, error cnecking is performed 
by the sending and receiving terminals. For troadcast 
Meemsrerrals, the Concentrator performs the error checking 
retween itself and the receiving terminals while the sender 
performs error checking between itself and tne Concentrator. 

ct a data communica tl Onmmeonmecllon = connote te 
established, the record data structure "connection" 
HEN une fields for source, destination, and process is 
queued in a FIFO queue implemented as an array of records. 
The queue is limited to one process per source Z-1?0 per 
destination Z-190 and is limited to [message and file 
processes. rt. ois se this quene tmat the Concentrator checks 


e receiving the “active” signal from any 2-1£% during the 


Polling process. 


2. The dd 

The role of the Z-180-3s to communicate" 1th tienen 
andá the Concentrator for the purposes ot process imei 
application programs. Commands are transmitted from tte user 
to the Co«scentrator, epatlirg the estat? ishmemg Uv "oT e Ube DEI 
data corrunication -owwectior. Then the EE 
transmits commands and data to the destination Z-122(5). 

The network applications consist of three 7-170 EIS 
Z2-1@@ functions; file transfer, message transfer, and direc- 
tory transfer, ara one Z-100 to Concentrator function, semen 


Sta tuse within each Z-180 tc Z-1@@ function is a serding 


process end e receiving process. It is these processes that 
serve es the network unit of execution. The "Source 2-015 
initiates a process, the Concentrator establishes e 


connection with the destination 2-1££2(s), end maintains the 
connection until thevtprecessmrs TIONES Then the next 
process is initiated and so On. 

Both the 2-1@@ and the Concentrator use the record 
data structure “connection” to establish date” communis 
connections. “Connection” contains three fields; ‘source’, 
“destination”, and “process'. 

TPEESconetine 1S 
RECORD 
Source: tytej| 
destination: byte; 


process: byte; 
END RECORD; 


SØ 


The source Z-1@2 creates the connection record and 
transmits it to the Concentrator where it is decoded and the 
proper pathway is established. When the destination Z-120(s) 
ememowmedze the connection, communication begins. the 
AEC tiOn can not be established, "he connection record is 
Eoned by the Goncentrator in the queue. Upon weompletion of 
ENIMS rocess, tne connection record im the Corncentratcr and 
phe 2-190 is destroyed. 

The Z-1@@ network application programs are menu 
driven and implemented inan infinite loop. D LOL 
transmits an active signal to the Concentrator and waits 
NEL ollec by the Concentrator. When polled the user is 
Pola if there is a process waiting for him/her and is 
requested to receive that process. Then the user selects a 
process from the menu end the Z-109 and the Concentrator 
carry out that process as descrited eatove. ALO TINO Ce Ss 
completion, control is returned to the infinite loop which 
transmits an “active” signal again, waits to be polled, asks 
Sr input, and so on until the user terminates the loop 
with ‘control x. 

5. Command and Data Communication 

a een Cera mmo this thesis is efficient data 
monmspications. Fast, error free transmission of commands 
data. aleng the data communication connection for toth 
Hito port eno troedeast, is achieved by ar immediate 


echo method irplerented in JANUS/Assemtler language for 
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CP/M-86. The method uses the fect thet instruction executior 
time is much shorter than deta transmission time ard attempts 
to minimize wait times es much es possible. All bytes 
received by any procedure are immediately echoed end the 
received echoes are then checked for error. 

The sending procedure transmits a byte and then waits 
for an echo from the receiver. It compares the™=eence yy aaa 
transmitted tyte. If an error is detected, the sending 
procedure, depending on its function, either retrensmits 
immediately or transmits an error code followed by the re- 
transmitted byte. (For the troadcast method the byte is 
trarsmitted to all destination Z-1C€0s before the echoes mE NN 
received and compared.) 

The receiving procedure receives a tyte and then 
immediately echoes it tefore proceeding to process the 
received byte. If an error code is received when it returns 
to receive the next byte, the receiver erases the byte in 
error and returns to receive the retransmitted byte. 

The method is sufficiently general in design to 
handle more difficult errors than just errors in dete tytes 
transmitted from the sender to the receiver. For instance, 
the method will detect and ccrrect errors in the echo 
trensmitted tack to the sender. This is a particularly 
insidious error tecause the receiver actually received the 
correct dete tyte, tut the sender doesn’t think so and sends 


out en error code or retransmits the data byte. The method 


will also correct multiple errors such es when a data byte is 
MEatismrtted in error and so is tbe subseguent error code. 
Messenger will stay with the error until it is corrected to 
lts  satisfactior and the receiver will always know how many 
received data tytes are in error and hcw many to erase. This 
is true even when a procedure is both a sender and a receiver 
as in the procedure “Setup”. Additionally, every receiving 
procedure hes a finite waiting period to ensure the final 


meee ana echo are received properly. 
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d. Pe Considerations 


a. Assemtly Language 

JANUS/Assembler combined with CF/M-SE BDOS fun- 
ction calls was used for all I/C sutroutines except for the 
display of non-conditional strings to the user. This was 
decided tecause of the need for speed, efficiency, and imple- 
pembsDbXon cf the data ccmmunication connection. Ee@ause or 
an undiscovered bug in JANUS/Ada, use of CP/M-8E function 
calls invalidated the perfectly adequate built in JANUS/Ada 
meee Operation routines. Thus these furctiors too were 


implemented in JANUS/Assertler with CP/M-£6 BDOS function 


calls. 
t. Memory Management 
The Concentretor progrems ere estimatec to occupy 
PENNE Mr homGe4K bytes of memory in the Concentrator. Bue to 


ct 
D 
(D 


limited size of the queue for waiting processes, and to 


the use of message switching as the principle of network 
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communication, circuit management was deemed not necessary 
and was not implemented. 
C. Process Coordinetion 

The network processes do not use interrupts Tor 
Coordinator" Processes execute sequentially until communi- 
cation is required. This communication is designed such that 
when, Say, e sender is waiting to transmit specific commands 
or data, the receiver will eventually ‘rendezvous’ (although 
not in the concurrent sense) and the proper receiving pro- 
cedure will receive and process the transmitted commands or 
data. When necessary, such as when polling ports, processes 
will wait a finite period of time and then move on. 0ccass 
sicnally;-—. a process will stop urtil the receiver tells rE 
continue. Blocks of data are identified by end of block 
codes (ZFFh), and codes ere transmitted to tell the receiver 
whether or not this was the last tlock. Special cere was 
exercised in the implementation to ensure that deadlock did 
not occur ie: both processes expecting to receive or to 
transmit. 

The Concentrator, which is both a receiver end e 
sender, employs the same design principles when polling 
ports, checking or updating queues, and establishing data 
communication connections. Once a Connections estati isinen 
it treats everything as a block of data, moving on only when 
a sequence of four end of process codes (@Fih) from the 


destination Z-12@@(s) is received. 
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jee, The Data iypestyte 

Use of the JANUS/Ada predefined data type  Eyte, 
which is not ADA standard, was necessitatec by the retwork 
requirement to transmit all eight bits of each data byte ard 
Eu method used to transmit and receive commands and data. 
Tne data type Character with only seven bits, and tne data 
type Integer, which is not well suited for the manipulations 
needed for transmission, were not sufficient to represent the 
mata byte "used in command and date communication ir this 


implementation. 


SES TEM EXECUTION 

The implemented network application programs are menu 
and command driven. At program start and after each process, 
the “active” signal is trarsmitted to the Concentrator and 
the program waits to te polled. When polled the program is 
informed if there are processes waiting for this Z-104. Lr 
there are processes weiting, the user is asked to receive 


them. Then the user is presented with the following menu: 


CTRL S - SEND FILE 
CTRL R - RECEIVE FILE 

CIAL IT = SEND MESSAGE (TALK) 

CTRA = RECEIVE MESSAGE (LISTEN) 

CTRL P = SEND DIRECTORY 

NN C = RECEIVE DIRECTORI 

CTRL W = GFT NET STATUS (WHO) 

CTRL_B = RECEIVE BULLETIN BOARD 

OTHERS = RECEECK FOR INCOMING FILF OR MESSAGE 


The user makes his or her selection and is placed in the 


aiuerepriate Environment. HporMcompletroncoi each process. 
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the user can press any key and be returned to (he tana ween 
or pause indefinitely Upon return tee the mann meru, the ween 
is given the option of exitting using CTRL X or continuing 
"ANY KEY”. 

To send a file, the user is prompted for the disk drive 
file name, and file type of the file he wishes de 
user’s input is displayed as he types and invalid entries 
(those characters not permitted in file nares and file types 
ty CP/M-26) are flagged. A sample entry might look like 
tals: 


FN.FT: myfil? INVALIDFENIRIY 
mytili? 


Cnce entered the file name end type are capitalized in 
accordance with CP/M-8€ format and the user’s choice is 
Cisplayed for eon irma tion. 


C: MYFILE.TXT IS SELECTED. PRESS RETURN TO CONFIRM, 
ANY OTHER KEY VO RESP EECT. 


Upon confirmation, the user is prompted for tbe desto is 
ticn terminal (or broadcast) and the source terminal. Then a 
search is rade for the file. If it can not be found an erron 
message is displayed and the user is given therop portunity e 
reselect. If it is found the file is opened. Then, if the 
destination is active, the transmission begins. Ctherwise, e 
message indicating that the destination was inactive is dis- 
rlayed and the user is returned to the main menu. 

The file is sent in succesive 128 tyte data blocks until 


end of file Ys ereec ied After each data tlock, the sender 


MEC CES tre receiver wketrer or not end of. file has 
occurred end stops until the receiver tells the sender to 
continue. Once the file is sent, it is closed end the user 
Ex cned to-the malin renu. 

Tor receive æa file ths user 1s ~trompted as above for 
Hee. file name, anad file type. Upon confirmation, the file 
named by the user is first deleted and then created. This is 
modem ^ ensure no Errors occur duringethe creete operation 
and has the effect of overwriting the file if the user 
chooses a file already on the disk. After creeting the file, 
recepticn tegins. 

Ihe file is received in 128 byte data tlocks and efter 
each tlock is written to disk, end of file is checked end the 
Enden. told to continue. Once the file is received, it is 
w ed and the user is informed of the numter of bytes 
received, Error messages are displayed if there is no more 
IS pace or directory space on the receiver. The user is 
then returned to the main menu. 

To cenl a message, the user is prompted to begin typirg 
and tcld thet the maximum messege length is 1600 cherəcters. 
All characters entered except CTRL_2 are sent. The messege 
iemeenmcenized in a page format of twenty lines with Sg 
cheracters each. A limited correction capability is 
included, consisting of typing “tackspace or CTRL_E and 
wenan retyping the character. However, the error, the tack- 


T eor CIRIL E, end the retyped character all count as tyrer 


Characters. The message format consists of twenty lires of 
22 ‘keystrokes’ each. Users must keep this in mind when 
Cy iene. 

"CTRL Z" stops message typirg and CTRL_S sends it. Any 
other key allcws the user to retype the message. After 
"CTRL S", the user is prompted for the source and destination 
(or broadcast) terminals as atove. If the destination a> 
active, the message is transmitted as one data tlock witr 
appropriate end of message codes. The user 15 Feturded Toma 
Pain menu wupor cempletion of the transmission. 

To receive a message, the user types CTRL L from the 
main menu end reception occurs. The message is displayed and 
the user is informed of end of message and the numter of 
tytes received. The user is then returned to the main menu. 

To send a directory, the user is prompted for tres 
drive for which directory he wishes to send. (Presumatly in 
response to a request.) After confirmation, the user is 
prompted for the source end destinetion (or troadcast) 
terminals as atove. The directory of the selected drive is 
then searched for the CP/M-86 wild card file nere and type 
(2277727727 .772?) causing the entire directory to te matched. 
kach directory entry is placed ir the transmission data ele... 
until there are eight directory entries fora total cr see 
ey tess If the destination is active this data block semen 
transmitted , preceded ty the disk drive, with a code indica- 


ting whether or not end of “dtrectery haswoscUPTSd. If there 


are no files on the selected disk e "NO FILES ON SFLECTED 
DISK. string is transmitted te the receiver. The user is 
returned to Pe mein renu upor completion Oj the 
Mis nsmisss 1 Ona 

Mec sive a directory, the user 1s prompted es above for 
IE tile name, and file type in which he wishes to store 
Mie cornine directory. Upon ccnfirmation, the file named by 
eser 15 first deleted “ard then created. RASO e O 
SEI. errors occur durirs tne create operation and has 
the effect of overwriting the file if the user chooses a file 
elready on the disk. After creating the file, reception 
begins. 

Mee. Cf tae directory is received first and tren the 
IT E tyte data black. After checking for end of 
ucc the eignt directory entries of the data tlock ere 
Gisplayed and the user is asked if he wishes to save them on 
ile. Tech data tlock is received the same way. Those date 
blecks the user wishes to save are written to disk and the 
rest are discarded. Error messages are displayed if there is 
IN LPS disk space cr directory space en the receiver. When 
end of directory is reached the recepticn is ceased, the file 
años end the user returned to the rein menu. Views) le 
created during this operation should te edited ty the user 
as it may Contain Characters from eech directory entry that 


are not printatle. 


To cttain a current net status cfe ere EECHER 
the network, the user is prompted for (he scurce HTH 
netion terminals as etove with tne exception that he must 
enter his terminal for beth source and des tia Upon 
confirmaticn, a list by numter cf ell ective S lernine) see 
displayed and the user is returned to the main menu. 

Messages are sent the bulletin toard, if it is active, ty 
selectira machine #24 when prompted. The tulletin board is 
“read” by selecting CTRL B at the main menu. If the bulletin 
toard is active, all the current messages are transmitted, in 
12@ tyte blocks, and stored in e user specified file, chosen 
in the same menner es the receiving of file trensfers. His 
file can then be perused at leisure. The bulletin toerd cen 
hold up to twenty messages of 1€00 bytes each. The twenty- 


first message replaces the first message and so on. 


VIT- CONCLUSIONS 


The research objectives of this thesis; coding in 
JANUS/Ada, allowing single or multiple transfers of files, 
messages, and directories, and sharing of local resources in 
EN StoPOGNery  environmnent, were satisfactorily completed. 
However, the complete testing and demonstration of the net- 
work in operation was not achieved. 

The utilities resident in the 2-180 workstations were 
completely and satisfactorily tested. So too were the estab- 
lishment of data communications connections and data transfer 
through the concentrator of files, messages, and directorys 
meen eas sinele 72-100 to another single Z-100 and to multiple 
(two) Z-100s. The polling mechanism in the concentrator, 
ottaining net status, and the storing of ressages in and 
retrieval from the bulletin board were also satisfactorily 
tested. 

Remaining to te tested are: the mechanism for the storing 
Peer eeesses ior which a Connection could not be established 
and the mechanism for placing and servicing the waiting 
processes in the queue. Dame tne testing ot the entire 
system of 23 2-108 workstations and one Bulletin board under 
all conditions and loads awaits demonstration. 

In sum, each module and subroutine was separately 


compiled and tested, functional integration of parts of the 
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system were tested and satisfactorily deronstreted, but the 
On pale te integration of tre enm! TCI wes not 
accom sm 

To echieve finel system integration and completion of the 
network, it is recommended that e two step testing process te 
conducted. First, set up, under laboratory conditions, EE 
small network consisting cf seven Z-1£0 workstations end a 
tulletin teard E expansion seca. In tiis 
set up, fully test the pacxage “Poll” in various experimental 
situations te Ensure thateat handles all T circunstan SE 
designed ard that the queue operations function properly. 
second, estetlism the full network and test it imn 
operational environment under all conditions of looc 
functione 

The experience of coding this thesis was very challenging 
end stimulating. Despite my very limited programming tack- 
ercund in Pascal, I was able to quickly grasp the funda- 
mentals of Janus/Ada and tegin coding small test procedures. 
As the requirements for the project became clearer, coding 
intensified ard increased in size and Ier 

However, I found myself habitually using Pascal or 
Pascal-like struc tune sk I was tapping very little of the 


power and richness of Janus/Ada. For instance, I would use 


condition THEN 
EXIT; 

END IF; 
pner than 

IM UN Trond tion: 
nomcezxut  lcops. Features suck as attributes,  suttypes, 
derived types, and ranges were used very little in the 
peeinnivs. Additionally, the nature of the project precluded 
Mine ita reel or fixed point types and all their features 
ps many of tne built in or provided library sutrcutines. 

It was in the use of the LOOP statement that I tegan to 
explore the full power of Janus/Ade over Pascal. QUERY 
learned to tailor the loop staterent to achieve 2ny effect I 
mesures and found it extrerely useful in structuring my 
programs Gradvally, in this and cther structures, I begen 
to use Janus/Ada more elegantly ard to remove “Pascal” from 
my coding, elthough some always reméined. 

Surprisingly, the grouping of programs, sutroutines, and 
data into packages and the linking together of these packages 
into a single program proved very easy to assimilate. The 
understanding and use of the scope and visibility rules, 
however, was harder to grasp. DE the use of 
selected components for naming variables in one package while 
in another peckege, or the use of private types were not 
irilemented. 

The first real problems cccurred in the use of input and 


cutput, usually the hardest cart of any language. por 
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reasons previously explaired, assemtly language sutroutines 
interfaced witn Janus/Ada programs were usec for virtually 
all input Mana sou teu My previous assembly language 
experience wes with 8888 mneronics, but the use of Gët 
mnemcnics was easy to learn recause IÍ was required to use 
only those instructions that hac counterparts 11 tel ND 
only kad to learn the new register and addressing schemes. 
However, the interface with Janus/Ada proved extremely diffi- 
cult (Com CIN It tecok much trial and error to" reads 
exactly how the parameters were passed and returned from the 
assembly language sutroutire ard how the stack was manipu- 
lated when the sutroutine was called. 

Lastly, tre requirerents of date communication were the 
hardest tomin lereni The idea of two programs executine mom 
two different rechines and communicating with each other was 
entirely new. The errors that resulted were difficult Ue 
diegnose and correct. in my previous experience, pros mama 
very rarely encountered infinite loops; either they didr't 
work correctly or they produced wrong answers, but they 
always finished. In data communication, infinite loops were 
frequent as the prcgrams deadlccked waiting for the other to 
stop Or startecommniGauire . Tre synchronization of proses 
dures ard routines in programs executing in parallel, so that 
procedures that needed to communicate would “meet” at the 
right place and the rignt time, was the most dirriculteas pace 


of coding this thesis. 
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Mabe paesis demonstrated. the following capatilities. 
First, the atility of JANUS/Ada, and by extension, ADA, to 
E ard efficiently perform corplex data commurica- 
fone end network functions. ST Due TUM ECT 
MESLIerine microcompulers. for the shering of rescurces and 
the enhencement of date comunicetions end transfer. Finally, 
the atility of an inexperienced progremmer to learn ADA end 


Mee 170 in the solvins of complex computer problems. 
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APPENDIX A 


UG Kgl AL 


A. PETER 


The syster is cde@sigred DEE EENS TH 
mierocorguter connected to the concentrator E Tiler. 
computer Sp. Tre file Xferrain.cmd should teci the Trara 
disk and the CP/M-2S operating system should te selected. 


B. SYSTEMS O MRED 


The command  'xfermain' will place the user in the 
petwork. Tbe first messaze should rte: 


“WAITING TO FE POLLED.” 
Note: System messages are always in uppercese. 


This reans that this Z-1¢@ is waiting to te recognized by the 
network. A wait of some time may result it the system is 


Ese If the weit becomes excessive, see the system's main- 
tenence personnel. then recognized, the next message should 
te: 


"CHECKING FOR INCOMING FILE OR MESSAGE." 


If there is en incoming file or message, the user will te 
asked to receive it prior to continuing with the user's 
request. 

After the incoming data has been received or if there is 
ro data, the fellowing menu will te displayed: 


CTRL_S = SEND FILE 
CTRL R = RECFIVE FILE 

CTRL T = SEND MESSAGE (TALE) 

CTRL_L = RECFIVE MESSAGE (LISTEN) 

CTRL P = SEND DIRECTORY 

CTRL G = RECFIVE DIRFCTORY 

CTRL W = GET NET STATUS (WHO) 

CTRL B = RECEIVE BULLETIN BOARD 

OTEERS = RECEFCK FOR INCOMING FILE CR MESSAGE 


selecting the proper entry will place the user in the desired 
environment. 
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Once in Sendfile, the command messages are self explana- 
Vory” Mc cera m roces ile EE Dë scceptetle 
ter reme and file type, tut the user Tust ensure that the 
flle exists on the selected disk. An error message will 
result otherwise. The next step is selecting the destiration 
machine (nuntered @1 through 23) or broadcast to all (numter 
ea). If the requested destination is not presently in the 
network, the request to send a file will te queued along with 
Pa ended destination. Some delay Mey occur in the sending 
of a file if the file is very large or the network is very 
busy. Fxcessive delay skculd be referred to the systems 
maintenance personnel. 


Pee KK KK TS 


Once in Receivefile, the corrand messages are self expla- 
ma yOry . The rogram prompts fcr a file name and file type 
Pores the incoming date. It forces the input of a CF/M-&6 


acceptatle file rame and file type, but the user must ensure 
Pete suiticient space Exists for the file on the selected 


Sí. An errcr messege will result ctherwise. some delay 
may occur in the receiving of e file if the file is very 
large cr the network is very tusy. Excessive delay should te 
referred to thre systems maintenance personnel. 


Y. TALKING 


Once in Talking, the commend messages are self explana- 
ry. Message length is 1622 characters organized in 22 
MES. Of 80. uror eean bE Corrected using Teckspece or 
“Control h, tut each keystrcke counts towards the 162. The 
rext step is selecting the destination machine (numtered 21 
through 23), troedcast to all (number 22), or tulletin toerd 
(numter 24). If the requested destination is not presently 
in the network, the request to send a message will te queued 
ae oh the intended destiration. Some delay may occur ir 
the sending of a message if the message is very large or the 
network is very busy. *xcessive delay should te referred to 
the systems maintenance perscnnel. 


F. LISTENING 


ansi isteninr the message is received immediately 
and displayed as typed. 
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G. WHOS THERE 


Once in hos there, the user ls prompted (Oem) Cr a es 
machine number as the destination. Then the net status is 
receivec. 


E. RECFIVE DIR 


Once in Receive dir, the command ressiages tareas 
PEOR The program prompts for a file name anc file type 
for the incoming data. It forces the input cima "G17 Pee 
acceptetle file name and file type, but the user smusteeicue 
that sufficient space exists for the file cn) the seve 
disk. An error messege will result otherwise. The user may 
seve only thos2 cirectory ertries he cesires. some delay 
ray cccur ła the receiving of a directory if the @irec lon mene 
very large or the network is very busy. Excessive delay 
should be referred EE Malin temaqee persons 


I. PRESENT DIR 


Once in Present dir, the command messages are self 
explanatory. The user is promrted to select the destination 
machine (numbered @1 through 22) or troadcast to ell (numter 
ae). If the requested destination is not presently in the 
network, the request to send a directory will not te queued 
and is destroyed. Some celay may occur in the sending of e 
directory if the directory is very large or the networ aes 
very tusy. Fxcessive delay should te referred to the systems 
maintenance personnel. 
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Once in Bullbrd, the commara messages are self explana- 
COTY- The program prompts for a file name and file type for 
the incoming data. It forces the input of a CEM E 
acceptetle file name anc file type, tut the user must ensure 
that sufficient space exists for the file on the selected 
disk. An error message will result otherwise. Some delay 
may occur in the receivirg of messages from the bulletin 
toard if the numter of messeges is very large or the network 
is Very MOUSSE Excessive delay should te referrea to the 
systems maintenence personnel. 


pu ER ACTION 


when completing any one of the atove tasxs, the user is 
returned te the main menu where he may exit using ‘control x’ 
or cortinue for more tasks. If the user chooses to continue 
IT THT reS Fo whe begining, waits to be reccenized 
San, and 50 cn. 


L. WHEN ERFORS OCCUR 


The system is designed to flag most errors and allow user 
correction without halting execution, however should errors 
Aca Malt the prosram during data communication, then 
the syster will have to te reset. emo Gwe seen eS ell gam ye 
user terminal will allow the user tec rejoin tne network. 


SE 


APPENDIX F 


MAINTENANCE MANUAL FOR Z-100 FROGRAMS 


A FERAN 

CONFIGURATION 

a. Ienguage - JANUS/Ade 

t. Compiler Version - 1.47 
c. Linker Version -1.47 
3 
= 


pao 
* 


Target Hardware — Zenith 2-107 microcon utor 
. Operating System - CP/M-8€ (version 1.14) 

f. Feckege description: 

The Xferrain package is the main program for the Z-190 
workstaticns. IT begins by informing the Concentrator Maia 
this particular terminal is active and then waiting to deters 
mine if the network has any files or messages waiting for it. 
Xfermain then presents the user with e menu of selected 
options: send/receive files, send/receive messages, 
send/receive directory, ard obtain network status. Control 
code keystrokes then plece the user in the desired enviror- 
ment. Xfermain conteins en infinite loop thet will Teri 
the abcve functions until the user terminates the session 
with control x. Upon termination. |Xfermajm informem 
GCorcertrator it is no lorzertactiver 


2. SUBA UTNE 

a. Contained: None. 

t... Cai tel: 
Active 
waiting 
Outconsole 
Keyin 
Sendfile 
Receivefile 
Talking 
Listening 
hos He Te 
[POCO 
Present dir 
Recv tvlletin 
Clearscrn 
(UTOR 


3. COMMENTS 
Xfermain is placed or ell terminals of the network, 
except #24, the Bulletin board, and is invoked by typing the 


command ^ xfermrain" 
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B. XFERFILE 
1. CONFIGURATION 
Language - JANUS/Ada 
Compiler Version - 1.47 
Linker Version - 1.47 
Target Hardware - Zenith Z-100 microcomputer 
Operating System - CP/M-8€ (version 1.14) 
. Package description: 

TH Xferfile package controls the sending and 
receiving of files from the Z-199 workstations. The user is 
prompted for the disk drive and file nare to send or receive. 
The package parses and capitalizes the input into eight 
character filenames and three character file types, in order 
to conform with the requirements of CP/M-86. When the input 
hes teen confirmed by the user, Xferfile either opens en 
existing file or creates a new one using the file control 
blocks (FCBs) described in Chapter IV. Files are read end 
sent or received and written in 128 byte blocks. The sending 
and receiving processes coordinate with each other and 
mutually come to a halt when the rprccesses are finished. 
Xferfile returns to Xfermain after each instance of file 
transfer. 
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SU BROUTINES 
a. Sendfile 

(1) Type: Procedure 

(2) Purpose: To send a file from one terminal to 
another terminal or to all active terminals in the network. 

(3) Description of Parameters: Ncne 

(4) Subroutines Called: 

Clearscrn 
Reset_disk 
Drive select 
Parse_cap 
Outconsole 
Keyin 

Open file 
Set DMA 
Enter machine 
Set up 

Read seq 

Yes 

No 

Send block 
Lose Ite 

(5) Process Description: 

Sendfile controls the sending of data from a file 
to the receiving terminal(s). The user specifies the disk, 
ile name, and the file type and Send file creates a file 
control block (FCB) Then the user specifies the destination 
terminal(s) and a connection ís established. The file speci- 
fied ty the FCB is opened by utilyzing CP/M-86 function call 
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#15 and date is read from the file into e deta structure 
located at the specified direct memory address (DMA) in 
sequential 128 byte records by utilizing CP/M-86 function 
call #2@. Sendfile tells the user if either an inappropriate 
file nare or type is used, if the file specified is already 
open, or if the specified @iile cannot e au on (ne Spon 
fied disk. If the receiver is active, the data structure 
containing the 128 tyte record is then trensmitted. Sendfile 
checks after each sequential reed to determine if end of file 
has been reached and sends a yes or a no code accordingly. 
After the transmission has been completed, the file is 
closed. 


t. Receivefile 

(1) Type: Procedure 

(2) Purpose: To receive and store a file froma 
sending terminal. 

(3) Description of Parameters: None 

(4) Subroutines Called: 

Clearscrn 
Reset disk 
Drive select 
Parse Cap 
Outconsole 
Keyin 
Derete ue 
Create file 
Set DMA 
Endfile 
Write seq 
Recv block 
Close file 
Pitas tr 
Peat 

(5) Process Description: 

Receivefile controls the reception of file data 
frcm a sending terminal. The user specifies the disk, the 
file name, and the file type to store the date and a file 
control block (FCB) is created. The file specified by the FCR 
is first deleted using CP/M-86 function call #19 to ensure no 
duplication occurs and then created by utilyzing function 
call #22. 128 tytes of data is received and stored in a data 
structure located at the specified direct memory address 
(DMA). The data is written to the file using function call 
#21 and the the sender is told to send the next 12€ bytes of 
data. Receivefile checks after each block of data is received 
to determine I end of file has occurred: Receivefile tells 
the user if either an inappropriate file name or type is 
used, if directory space is unavailable for the initial 
filename, if directory space is unavailable for new extents 
of an existing entry, or if disk space is full. After the 
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Deception hes teen completed, the file is closed and the 
nurber of tytes received is displayed. 


Case cap 

(1) Type: Procedure 

(2) Purpose: To parse the file name and file type 
Marin valid characters and to capitalize toth to conform to 
REES pret oe ol. 

(3) Description of Parameters: A value of type 
ter indicating the FCB data structure is one output 
parameter. A value of type Integer indicating the file name 
length is the other output parameter. 

(4) Subroutines Called: 

Outconsole 
Keyin 

(5) Process Description: 

Parse cap controls the creation of the user speci- 
fied file name and file type. The user’s input is accepted 
and displayed. Invalid characters are flagged and the input 
minus the invelid character is redisplayed for continued 
input. Parse cep then capitelizes the input and stores it in 
the appropriate fields of FCR. 


Uae MESSAGES 
1. CONFIGURATION 
Language - JANUS/Ada 
Compiler Version - 1.47? 
IiInkepeWersion — 1.47 
lgmccpoHardwares— Zenith Z-100 microcomputer 
Operating System - CP/M-86 (version 1.14) 
. Fackage description: 

Th Messages package controls the sending and 
receiving of messages from the Z-1@@ workstations. A maximum 
message size of 1600 keystrokes (including error correction) 
Organized in 28 lines of 80 each is implemented. The user 
types control z to end the message and control s to send it. 
If the user desires to retype the message entering any char- 
acter other than control s will erase the first messege. 
After input is confirmed, the message is transmitted and 
received as e single block of data. The sending and receiving 
processes coordinate with each other and mutually come to a 
halt when the processes are finished. Messages returns to 
Xfermain after each instance of? ressage transfer. 
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2. SUBROUTINES 
a. Talking 
(1) Type: Procedure 
(2) Purpose: To send a message to one or all of 
the terminels currently in the network. 
(3) Description of Parameters: None 
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(4) Surroutines, Cal led: 
Clearscrn 
Outconsole 
Keyir 
Enter machine 
setup 
send block 
Yes 

(5) Process eS o: 

Talking controls the transmission of Messe seat 
to receiving terminal(s). The user is prompted to begin 
tvuirg the message which is displayed simultaneously exactly 
as typed. Talking then prompts the user Ti ort Re destine o 
terminel(s) and, after estarlishirg connection with the re- 
ceiverfs), transmits the message as a single tlock of dete. 
Messages sert to destination terminal +24 are routed Toma 
tulletin toarc. Talking indicates erd of message by transmit- 
ting a sequence of four end of message codes. 


bt. Listening 
(1) Type: Procedure 
(2) Purpose: To receive a message from a sending 
terpinalk 
(3) Description of Perameters: None 
(4) Subrcutires Called: 
Clearscrn 
Outconsole 
Keyin 
Endmse 
REC Ve coc 
tee 
LE KEE EE 
Listening controls the reception of message data 
frem a sending terminal. The message is received as e single 
block of data and terminated wken a sequence of four end of 
messege codes is received. The messege is then displayed 
exactly as the sender typed it along with the numter of 
Gy tTCsure Gen ME 


Dp. “iE eG ane 
1. CONFIGURATION 
Language - JANUS/Ada 
Compiler Version 7 
Linker Version - 1.4" 
Target Eardware — Z8nith ZZ 120 Tror onu Ler 
Cperating System - CP/M-8E (version 1.14) 
. Package description: 

TH Directry package controls the sexdinE aud “meee. 
virg of directory informatibo from [he 7=-! A000 corks tac) cree 
FCR is created with question marks (?) in each character of 
the file neme and type. This serves es e wild cerd end en- 
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En ato tbe Entire directory will be sent. Directory 
estare ser cr received in 126 Eyte blocks. The sendire 
and receiving processes coordinate with each other and 
mutually come toa halt when the processes ere finished. 
pursciry returns to Xferrain after sach instance of directory 
Unansfter. 


cM I smoODPIN ES 
IE Te Sen todo 

(1) Tyre: Procedure 

(2) Purpose: To send a directory fror one termiral 
to another terminal or to ell ertive terminels in the network. 

( Tescription of Parameters: None 
( Sutroutines Called: 

Clearscrn 
reset disk 
Peeve select 
JV TLcCor sole 
Keyin 

Ter machine 
GEL 

set LMA 
Driveout 

Sea el IPSE 
See Suri we 
=e die 
earch next 
ind lioe 
Yes 

NO 

5 HE > or 

(Process Description: 

Posse guedl nt SeeOnun ols sending of data from a direc- 
tory to the receivins terminal(s). The user specifies the 
mand a file control tlock (¥CB) is createl with the 
Wildcard filenere and type (777727777.777). Then the user 
specifies destination terminal(s) and, if they are active, a 
connection is estatlished. (acer direcwormy is searched for 
EM Nr-temetcb to the FCB Ey wutilyzineg 0P/M-86 funotion call 
auc nd the directory information is placed into a deta 
Structure located at the specified direct memory address 
(DMA) in 126 tyte records. An offset is computed to tne 
Pique (raten within this record. Present cir transmits the 16 
byte match to the receiving terminal(s). Function call #1& 
is used to cttain ell subsequent matches. Ppesente ir 
trarsmits a tctal of eigbt 15 byte segments before transmit- 
ting the end cf tlock code, sc the receiving terminal(s) 
receive e full, contiguous 128 byte block, Aclitionally, 
uc r0: udycetes end of directory ty sending yes or no 
doces With each 128 bytes. The user is told if there ere ro 
files on a selected disk and a message stating such is sent 


to the receiving terminal(s). 
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C 
) Type: Procedure 
) Purpose: To receive and store ina file the 
om a sending terminal. 
) Description of Ferereters: None 
) Sutroutines Called: 

Clearscrn 

Reset arsSk 

Drives cule n 

LPS CES 

Outconsole 

Keyin 

eve tiem. eae 

Cree vem ne 

Seta 

End? aie 

eee ems era 

ReEGCV Cs 

Drivein 

Croce fils 

(5) Process Description: 
Receive dir controls the reception of dire 

data from a sending terminal. The user specifies the dM 
the file name, and the file type to store the dete enc e file 
control tlock (FCB} is created. The file specified by the FCP 
is first deleted using CP/M-SE function call #19 to ensure no 
durlication cccurs and then created Fy utilyzing tunetwer 
cell #22. 128 tytes of data is received and stored ir a deta 
Structure located et the specified direct. memory address 
(DMA). Each 128 tytes of directory čata is displeyed and the 
user is given the option cf storing theminiormetion m M 
file created. The data is written to the file using function 
call #21 and the the sender is told to transmit the cx Ue 
bytes of data. Receive dir checks after cach bloc oto dat NES 
received to determine if end of directory has cccurmede 
Receive dir tells the user If either an inappropriate mE 
name or type is used, if directory space is unavailable for 
the initial filenare, if directory space is uravailable for 
new extents of en existing entry, or if disk space is full. 
CUM directory reception hes teen completed, the file is 
clcsed. 


directory 


POOLE 
1. CONFIGUPATION 
Language - JANUS/Ade 
Compiler Version saat. 47 
Tinker Version - 1.47 
Target Hardware — Zenith Z-1¢@@ microcomputer 
Cpereting System - CP/M-&6 (version 1.14) 
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Por cekc Fencescription: 

E ac kage controls the Inquiry for and reception 
of net status; which machines are currently active in the 
network. 


eee ESCUE ENS 
a. Whos there 
(1) Type: Procedure 
(2) Purpose: To request and receive net status 
Mm, Orme tion. 
(3) Description of Parameters: None 
(4) Sutroutines Celled: 
Clearscrn 
Pecy euLock 
AP Geremachine 
Setup 
ulin 
(5) Process Description: 
E Ec cis. Tie User tO enter his terminal 
nurter for toth the source and destination terminals. After a 
connection has teen established, the net status information 
frcm the Ccncentrator is received end displayed. 
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EEG NULIPRD 
ie conn IGU2 ATION 

Language - JANUS/Ada 
Compiler Version - 1.47 
MES OA 4T 
target Hardware - Zenith 2-12 microcomputer 
Operating System - CP/M-8€ (version 1.14) 
Package description: 

The Pulltrd package controls the inquiry for receiving 
the current messages from the tulletir toard qo M cO 
ther on file. 


txt e i 


TNES 
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IS SO Y 
a C 
) Type: Procedure 
) 
) 
) 


Furpose: To receive tulletin toerd information. 
neccriprioneof? Parameters: one. 
Siulbroucines Galler: 
Clearscrn 
Erter macnine 
Setup 
Receivefile 
Keyin 

OFr Cess Veseriution: 

Fecvsua ein ror Inc user FO enter #24 for the 
E terminal. Then, if the bulletin toard (ter- 
fees ee tulletin estatlishes a connectioz. 
Mica Ts Receivefile weich haniles the actual file transfer 


(y 
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of the Getae from the bulletin board and stores it in a user 
specified file. Error messages are displayed if either an 
inappropriate file name or type is used, if directory spece 
is unavallatle for the initial filename, if directory space 
is unavailable for new extents of an existing entry, or if 
disk “spaces oor After reception of the bulletin board 
data has been completed, the file is closed. / 


H.  RULLETIN 
1. CONFIGURATION 
Language - JANUS/Ada 
Compiler Version 47 
Linker dersion = 1.47 
Target Hardware ~ Zenith TD D HIE 
Operating System - CP/M-86 (version 1.14) 
Package description: 

Bulletin is the package that implements the network 
bulletin board. It controls the reception of individual 
messages destined for the bulletin board and the transmission 
in 122 tyte blocks suitable for file transfer of all current 
messages at a given time. Messages are received ina single 
Flock. The bulletin board has the capacity of twenty mes- 
sages of 1EØØ bytes each. When the caracity is exceeded, the 
first one in is the first one out. Messages are stored as an 
array of records with fields for the message and its length. 
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2. SUEROUTTNEO 
a. Contained: None. 
b. Called: 

Clearscrn 
Active 
Waiting 

RE Eeler 
Endmsg 
send tlock 
No 

Yes 


3. COMMENTS 

The network bulletin board is “hard wired” into pont 
$24. It is invoked by typing the command "bulletin". A 
message is displayed stating tbat this terminal is the net- 
work bulletin beard. The program loops endlessly waiting for 
requests to receive messages or send current message 
inventory. If another terminal at another port is desired to 
be the network bulletin board, the package Poll must be 
chenged to reflect the new port. (see Appendix C.) There can 
be only one bulletin board active at a time. 
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ieee i Url 
Le Cee Cus T C N 

Language - JANUS /A2a 
Borpiler Version = 1.47 
Einsceraverslor t 147 
BIT H nit Zoi Ov microcomputer 
Operating System - CF/"-285 (version 1.14) 

Feckage cescription: 
mco DIM EE EE varl ous utility programs 
Ge d Bé a 


KA tb D o O0 er f» 


Æ a 
lini 

(1, Type: Procedure 

(2) Furpose: To display integers. 

C -- oo? PParepevers: A. values of type 
meeerere to Ceedisplayed is the input parameter. 

(4) Sutroutines Called: 

eet 

(5) Process Description: 

rut int takes the input perereter end determines 
NEU xi5en PUL intestrimps, Er, ent starting from 
the left and removing leading zeros, ard displays it. 

b. Cleerscern 
(1) Type: Procedure 
(2) Purpose: To clear the display screen 
(3) Lescription cf Parameters: Nore. 
(4) Sutroutines Callec: 
Outconsole 

(5) Process Description: 
ear Senao Eut ene CEM SS Clear screen col1es. 


Cg Ee E 

(1) Type: Procedure 

(2) Furpose: To get the user’s input of source 
enc cestinetion machines. 

(3) Description of Farameters: A value of type 
Integer indicating the source ard destination machines are 
ASEO ut parameters. 

(4) Sutroutines Called: 


Outconsole 
M ever 
IEENNEPOCess Description: 
Enter machine prompts the user for input and then 
Aitor confirmation. The “veytoard input is converted 
Ee Integer values which arẹ assigred to the output 


parameters. 


d. Drive select 

(1) Type: Procedure 

(2) Purpose: To get the user's selection of disk 
drive. 

(3) Description of Parameters: A value of type 
tyte indicating the disk drive selection is the output 
parameter. 

Subroutines Called: 
Outcensole 

Keyin 

Select drive 

(5) Process Description: 

Drive select prompts the user for input and then 
displays it for confirmation. Lower case and upper case 
inputs ere treated the same. The appropriate parameter is 
then passed to the CP/M-86 function call #14, which selects 
the drive. The drive selection is then returned as an output 
peremeter. 


EH. MYASMITE 

1. CONFIGURATION 
Language - JANUS/Assembler 
Compiler vVersiomi Susp 
Linker Version ~ 1.50 
Target Hardware - Zenith Z-122 microcomputer 
Operating System - CP/M-86 (version 1.14) 
. Package description: 

Th Myasmlit peckage contains the library of assemtly 

language subroutines for the Z-1@@ worxstations. 
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2. COMMENTS 

a. JANUS/Ada parameters for JANUS/Asserbler modules 
are placed on the stack at subroutine call with the lest 
parameter closest to the top and the return address on the 
very op. Discrete values are passed for parameters of type 
IN and the address of the parameter is passed for types OUT 
and IN OUT. Upon return to the calling program OUT and IN OUT 
parameters are removed from the stack along with the return 
address. 


b. The following subroutines involve input and output 
to other terminals via the modem port (J2j: 

send block 

MES 

No 

Recv_block 

Emon Ne 

Active 

Weiting 

setup 

Fndmsg 

End tlock 


send string 

send dir 

Priveout 

Drivein 

OFF 

The method of transmission used involves an immediate 
echo checking procedure. The sending sutroutine transmits 
bytes of data one at a time. The receiving subroutine re- 
ceives the deta bytes and echos each one immediately upon 
reception. The sending subroutine compares the echo with the 
menmi tted data and wchecks for error. If an error is detec- 
HIM co sensinPesubprpourline either simply retransmits or 
SE OC odeto tell ne receiving subroutine that the 
data previcusly received (and processed) was in error, fol- 
lewecd by the retransmitted data. All receiving subroutines 
contein a finite waiting time after the last data was re- 
ceivec to ensure that the final echo was received properly. 


<  SURROUTINES 
Cured le eile 

(1) Type: Procedure 

(2) Purpose: To create files specified by the FCB. 

(3) Tescription of Parameters: A value of type 
Integer containing the FCB address is the input parameter. A 
value of type Integer indicating the result of the  CP/M-86 
function call is the output parameter. 

(4) Sutrcutines Called: N/A. 

(5) Frocess Description: 

Create implements the CP/M-86 function call 
#22. It creates (ard opens) the file specified by the FCB. It 
Burns 33 1, 2, or 3 if the operation was successful and 
255 (0FFh) if no more directory space is available. 


O 
) Type: Procedure 

) Purpose: To close files specified by the FCB. 

) Description of Parameters: A value of type 
Integer containing the FCB address is the input parameter. A 
velue of type Integer indicating the result of the CP/M-86 
function call is the output parameter. 

(4) Subroutines Called: N/A. 

(5) Process Description: 

Close file implements the CP/M-85 function call 
wie. It closes the file specified ty the FCB. It returns a €, 
MEE Mor caf toe operation was Successful and 255 (OFFh) if 
the file could not te found. 
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EFurpose: To open tiles speci Mie n cM 
Description of Pareareters: `Á valle of type 
Integer containing the FCR address is the input pararetevr. aA 
value cf type Integer indicating the result of the CP/M-26 
funct longc EE the Guo pire parame Vem: 

(4) Sutroutines Called: N/A. 

(5) Preeess Veser intl or : 

Cpen file implements the CP/M-&E function call #15. 
It opens the file specified by tne FCB. It returns e @, 1, 2, 
or Z if the operation was successful and 255 (£YFh, if the 
file could not. te Urak 


Ope 
(1) Type: Procedure 
(2) 
um 


H 
1 
E 
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c. Read seg 

(1) Type: Procedure 

(2) Purpose: To read data from an open file speci- 
fied ty the FCB. 

(3) Lescription of Farameters: A value of type 
Integer containing the FCF address is the input parameter. A 
value of type Integer indicating the result of the CP/M-86 
furction Call REES 

(4) Sutroutines Called: N/A. 

(£) Process Description: 

Read seq implements the CP/M-86 function call #22. 
It reads sequential 128 tyte records from aa open file speci- 
fied by the FCB into memory at the current CMA. It retur m 
0 if the operation was successful and a 1 if no data exists 
at the next record position, Normally this indicates endin 


file. 


e MDAC SEO 

(1) Tyre: Procedure 

(2) Furpose: To write data to an open file speci- 
fied ty the FCP. 

(2) Description of Parameters: A value of type 
Integer containing the FCR address is the input parameter. A 
value of type Integer indicating the result of the  CP/M-86 
function call Seoane 

(4) Subroutines Called: N/A. 

(5) Process Descrirtion: 

Write seq implements the CP/M-84 function call #21. 
It writes sequential 3128 byte records to an open file 
specified ty the FCB from memory at the current DMA. It 
returns a £ if the operation was successful and a 1 if there 
is no more space in the directory for a new extent entry 
required when the file is larger than 16K (or a multiple cf 
16%), or a2if there is no mere space on the disk for new 
data records. 


Ge 


e 
1) Type: Procedure 
. | 2) Purpose: To specify the Direct Memory Address 
EM. 

(3) Description of Perareters: A value of type 
Intezer containing the PMA address is the input parameter. 

(4) Sutroutines Called: N/A. 

(5) Frocess Description: 

set DMA implements the CP/M-P6 function call #26. 
It sets the DMA to the value of the input parameter, which is 
"ormally the address cf a specific data structure. 


aB lete file 
(1) Tyte: Procedure 
(2) Purpose: To delete a file specified ty the 
PERS 
(3) Description of Parameters: A value of type 
Integer conteining the FCB address is the input parameter. A 
value of type Integer indicating the result of the  CP/M-86€ 
mrnscUtlon cal] is tbe output peremeter. 
(4) Sutrcutires Called: N/A. 
UE EEPOPOss Description: 
Pelete ile ieplements tbe GP/M-&6 function call 
EM it deletes the file srecified ty the FCB. It returns a 
@ if the operation was successful and 255 (@FFh) if the file 
Sema not ce found. 
Peel ect disk 
(1) Type: Procedure 
r ose To select a specified disk drive. 
(3) Description of Parameters: A value of type 
ontairing the selected disk drive is tne input 


Integer c 
parameter. 

(4) Sutroutines Called: N/A. 

(5) Process Description: 

MS Eed Me BE function. call 
#14, [It designates the selected disk (9 = A, 1 = B, ete.) as 
the default drive for sutsequent disk operations. 


i. Reset disk 
1) Type: Procedure 
2) Purpose: To reset all disk drive systems. 
z) Description of Parameters: None. 
4) Sutroutines Called: N/A. 
5) Process Description: 
Pesci) (een pleten Ene k. s function call 
#127, It restores the file system to reset stete where ell 
drives are set to read/write and A is the default drive for 


sutsequent disk operations. 
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j: Keyim 

(1) Type: Procedure 

(2) Furpose: To ottain input from the keyboard. 

(3) Description of Parameters: A value of type 
Byte obtained from the keyboard is the output parameter. 

(4) Subroutines Called: N/A. 

(5) Process Description: 

Keyin implements the  CP/M-B6 function call #@6. It 
locps infinitely until a key is pressed and then the 
character cbtained is returned as the output parameter. 


k. Jutconsole 

(1) Type: Procedure 

(2) Purpose: To display output to the console de- 
vis 

(3) Description of Parareters: A value of type Byte 
to te displayed is the input paremeter. 

(4) Subroutines Called: N/A. 

(5) Process Description: 

Cutconsole implements the CP/M-86 function call 
422. 


1. Send tlock 

(1) Type: Procedure 

(2) Purpose: To send a tlock of deta to another 
terminal via the modem port. 

(3) Description of Farameters: A value of type 
Integer indicating the address of the deta structure to be 
sent is cne input parameter. A value of the type Integer 
indicating the size of the data structure is the other input 
parameters 

(4) Subroutines Called: N/A. 

(5) Process Description: 

send tlock sends a block of data out the modem port 
(J2) sequentially one byte at e time, decrementing the size 
of the data block until it equals 2ẹero. Then it transmit: 
sequence of four end of block codes (@FFh) to indicate that 
end of tlock has teen reached: Any data structure may be 
sent using this procedure. 


m. Yes 

1) Type: Procedure 

2) Purpose: To indicate to the receiving 
that an EE reached. 

3) Description of Parameters: None. 

d Sutroutines Called: N/A. 

E 

es 

y 


terminal(s 


Process Description: 
sends out a sequence of four end of process 


Y 
( 
( 
) 
( 
( 
( 
Y 
h} when a particular process is finished. 


codes (CF1 
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KS 
Type: Procedure 
Purpose: To indicate to the receiving termi- 
NU S) tha process is still ongoing. 


Lescription of Parameters: None. 

SUbTou cine sed led sa N/A. 

Process Description: 

sends out a single no code (6Eh) to indicate 
tkat a Ka 2 s isc not finished., 
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De EN Oc 

(1) Type: Procedure 

(2) Purpose: To receive a block of data from 
another machine vie the rodem port. 

(3) Description of Parameters: A value of type 
Integer indicating the address of the data structure in which 
the received data will be stored is the input parameter. A 
value of the type Integer indicating the amount of data 
pece)lwed iS tne output parameter. 

(4) Sutroutines Called: N/A. 

3) Process Description: 

Recv tlock receives a block of data from the modem 
port (J2) sequentially one byte at a time, incrementing the 
ot the data block until a sequence of four end of block 
codes (@FFh) is received indicating that end of block has 
reen reached. Any data structure may be received using this 
procedure. 


pemenaii le 

(1) Type: Procedure 

(2) Purpose: To determine whether or not a file or 
directory transfer process has finished 

(3) Description of Parameters: A value of the type 
Ee Et finish or not is the output parameter. 

(4) Sutroutines Called: N/A. 

(5) Process Description: 

Fndfile waits to receive either a single no code (6€EFh) 
or a sequence of four end of process codes (8Fih). If a no code 
is received the value false is returned to the cutput paramemter, 
if a sequence of four end of process codes is received a value of 
true is returned. 


q. Active 

(1) Type: Procedure 

(2) Purpose: To indicate to the Concentrator that 
emearurculer terminals is in the network. 

(3) Description of Parameters: None. 

(4) Sutroutines Called: N/A. 

(S) Process Description: 

Active sends out an active code (Dh) when the 
terminal is ready to communicate with the network. 
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r. Waiting 

(1) Type: Procedure 

(2) Purpose: To receive the status the Concentrator 
has for an active termine 

(3) Description of Parameters: A value of type 
byte indicating the status. 

(4) Subroutines Called: N/A. 

(5) Process Description: 

Waiting receives the status from the Concentrator 
that a terminal’s active code prompted. A @ indicates 
nothing waiting, a 1l indicates file waiting, a2 indicates 
message waiting, and a 3 indicates that the inactive recei- 
ving terminal to which this terminal had previously tried to 
send is now active. 


S. Setup 

(1) Type: Procedure 

(2) Purpose: To establish a connection with anot- 
her terminal via the Concentrator. 

(3) Description of Parameters: A value of type 
Integer indicating the address of the connection data struc- 
ture. A velue of the type Boolean indicating the result of 
the connection set up attempt is the output variable. 

(4) Subroutines Called: N/A. 

(5) Process Description: 

Setup transmits to the Concentrator the connection 
data structure for the purposes of estatlishing e connection 
with another terminal. The connection data structure cum 
sists of destination field for the destination terminal(s), a 
source field for the source terminal, and e process field for 
the process to te accomplished. setup sends out a sequence 
of four end of block codes (@FFh) to indicate the end of the 
data structure. It then waits to determine the result o WE 
connection set up attempt. if the Connection was success M 
send ready is set to true. If it was not because the dese 
netion was inactive, then send ready is set to false. 


LE 

(1) Type: Procedure 

(2) Purpose: To display integers. 

(3) Description of Parameters: A value of type 
Integer indicating the timteger to te displays 

(4) Subroutines Called: N/A. 

(5) Process Description: 

Myput converts the integer input into its ascii 
equivalent and uses CP/M-86 function call #92 to display it. 


us. PULSU 
(1) Type: Procedure 
(2) Purpose: To display Strings: 
(2) Description of Parameters: A value of type 
String indicating the address of the string to be displayed. 


ee 


(4) Subroutines Called: N/A. 

(5) Process Description: 

Put str is passed the address of the string to be 
displayed. The first byte at that address is the string 
length. The succeeding tyte are displayed using CP/M-86 fun- 
ction call £92 until the string length counter equals zero. 


V. kndmsg 

(1) Type: Procedure 

(2) Purpose: To determine if end of message has 
occurred. 

(3) Description of Parameters: None. 

(4) Sutroutines Called: N/A. 

(5) Process Description: 

kndmsg waits until a sequence of four end of mes- 
sage codes (AF1h) is received. 

A rst 
(1) Type: Procedure 
(2) Purpose: To search for the first directory 
match. 

(3) Description of Parameters: A value of the 
type Integer indicting the buffer address for the directory 
record is one input parareter. A value of the type Integer 
irlictirg the FCE address is the other input parameter. A 
value cf the type Integer indicting the result of the fun- 
ction is one output parameter. A value of the type Integer 
indicting the lccation of the matched directory entry is the 
Gomer Output parameter. 

(4) Sutroutines Called: N/A. 

(5) Process Description: 

Search first implements CP/M-8€ function call #17. 
It searches the directory of the specified drive for the 
first match of the file name and type of the specified FCB. 
hen a successful match is found, Search first places the 128 
byte record containing the matched directory entry and 
returns an offset code (0, 1, 2, or 3) that specifies the 
Smee: location of the Entry within the record using the 
formula: location of entry = (offset * 32) + DMA. If a match 
cannot te found, then Search first returns 255 (@FFh). 


Zo Search next 

(1) Type: Procedure 

(2) Purpose: To search for the next directory 
match. 

(2) Description of Parameters: A value of the 
Mere invecer indicting the buffer address for the directory 
Ee One input parameter. A value of the type Integer 
indicting the FCB address is the other input parameter. A 
value of the type Integer indicting the result of the fun- 
ion stone output parareter. A value of the type Integer 
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indicting the location of the matched directory entry is the 
other output parameter. 

(4) Subroutines Called: N/A. 

(5) Process Description: 

search next  imrplements CP/M-S6otunetion.cadd E MEE 
It seerches the directory of the specified drive for the next 
match of the file name and type of the specified FCB. When a 
successful match is found, Search first places the 128 byte 
record conteining the matched directory entry and returns an 
offset code (@, 1, 2, or 3) that specifies the exact location 
of the entry within the record using the formula: location of 
entry = (offset * 32) + DMA. If a match cannot be found, 
then Search first returns 2&5 (@FFh). 


y. Ena Tok 

n Type: Procedure 

2) Purpose: To indicate end of block during 
directory transfer. 

(3) Description of Parameters: None. 

(4) Subroutines Called: N/A. 

(£) Process Description: 

End_block transmits e sequence of four end of block 
codes {(@FFh) to indicate end of block during directory tran- 
sfers. 

ZE MAS AN 
(1) Type: Procedure 
B Purpose: To transmit strings. 
(3 Description of Parameters: A value of type 
String indicating the address of the string to be output is 
the input parameter" 
4) Sutroutines Called: N/A. 

(5) Process Description: 

send string is passed the address of the string to 
be transmitted. The first tyte of the input parameter is the 
length of the string. send string transmits the  succecaimie 
bytes one ata time out the modem port (J2) until the string 
length counter equals zerok 


aa. Send dir 

(1) Type: Procedure 

(2) Purpose: To transmit matched directory entries. 

(3) Description of Parareters: A value of type 
Integer indicating the eddress of the matched directory to be 
output ís one input parameter. A value of the type Integer 
indicating the size of the directory entry to be transmitted 
is the other inrut parameter. 

(4) Subroutines Called: N/A. 

(5) Process Descriptior: 

Send dir transmits them ENEE TTE 
tory entry sequentially, one byte at a time, vie the modem 
port (J2) until the directory length counter equals zero. 
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to. Driveout 

(1) Type: Procedure 

(2) Purpose: To transmit the disk drive used in a 
directory transfer. 

(3) Descripticn of Parameters: A value of type 
NA co tine the specified drive to te output is the input 
parameter. 

(4) Subroutines Called: N/A. 

(5) Process Description: 

Driveout transmits the byte representing the speci- 
fied drive via the modem port (J2). 


Cen Ur Vein 

(1) Type: Procedure 

(2) Purpose: To receive the disk drive used in e 
"nrectory transfer. 

(3) Tescription of Parereters: A value of tyre 
Byte indicating the specified drive received is the output 
parameter. 

(4) Subroutines Called: N/A. 

(5) Process Description: 

Lrivein receives the byte representing the speci- 
fied drive via the modem port (J2). 


doe c Gi f 
(1) Type: Procedure 
(2) Furpose: To inform the Concentrator that a 
terminal is no longer active. 


(3) Description of Parameters: None. 

(4) Sutroutines Called: N/A. 

(5) Process Description: 

Off transmits the off code (@Fh) via the modem 
mont (Je) 
J. WAMES 


1. CONFIGURATION 
Language - JANUS/Ada 
Compiler Version - 1.47 
Linker Version - 1.47 
Target Hardware - Intel 86/12A SBC 
Operating System - CP/M-86 (version 1.14) 
Fackege description: 

The Names specification contains the following glotal 
objects: 

INE CONC Tn 

connection 

Ty Pee ie 

block 

aH ZC 

retrn 


Mh AO ow 


D 
LO 


Space 
input 
peuse 
confirm 
drive 

code 

dest 

srce 
Send 
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MAINTENANCE MANUAL FƏR CONCENTRATOR PROGRAMS 


AO LL 
1. CONFIGURATION 
Language - JANUS/Ada 
Compiler Version - 1.47 
Pinker everson «Av 
Target HerGwere — Intel £€/124 SEC 
Operating System - CP/M-88 (version 1.14) 
+. Package descriplion: 

The Foll packege is the main program for the 
meomG@e= trevor acting as a network, switchtoard. It contaias an 
mite loop that polls each ore of 23 porte (typassing port 
#24 which is designated as the tulletin toard port and is 
rever polled) continuously. kelo ortrols the satisfying of 
requests from the 2-180 workstations and the storing of those 
requests in a FIFO queue that carnot be satisfied. For each 
port Pcll checks the queue for waiting processes. If there 
is a process waiting, Poll will satisfy the waiting process 
and ther attempt to satisfy the polled port’s original re- 
Guest . If not, Poll will immediately attempt to satisfy the 
polled port’s request. Poll is responsible for decoding each 
workstation’s request and estatlishing the rroper path 
tetween sender and receiver(s). Pais elso resronsitle for 
aana the net status; the list of all currently active 
possnc transmitting 10° vo workstations requestirg it. 
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EEN 
a. Convert 
(1) Type: Procedure 
(2) Purpose: To convert the byte information re- 
ceived from the 72-100 workstations concerning source and 
destinetion terminals into their integer physical addresses. 
(3) Description of Perameters: A value of type 
integer indicating the index position in tne queue of the 
NEE status record is the input variable. 
(4) Sutroutines Called: None 
(5) Process Description: 
Convert is two large case statemerts wnich tran- 
Slate the bytes received from the workstations into the 
Proper integer physical addresses for each fort. 


be. Poll calls the foll@wine subroutines: 
CHE CRE Ort 
neck queue 
Connect 
Cenvert 
XI er 
Creone «fer 
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No _xter 
Broedcest 
Net stat 
Cueue status 


Z. COMENTS 

Poll is resident in the Concentrator nea Sanny o CeO 
typing the command poll . It will not E DECHE 
all three 85358 BLC expansior boards are not installed. 

To change the port number of the tulletin board, the 
polling sequence must be changed to bypass the new bulletin 
boerd port and the automatic routing routines that route 
bulletin toard requests to the predesignated port must be 
changed accordingly. Additionally the value of “bullport’ in 
the procedure Broadcest must te cherged. 

To expand the system for greater numbers of terminals, 
add the appropriate number of expansion boards and change the 
following constants: “boardno”, ‘machno’, 'maxque', and the 
procedure Convert which cortains the physical kE sS 
Additionelly, the value of “boardnum’ must be changed in the 
procedure Froadcest. 


B. CONCUTIE 

1. CONFIGURATION 
Language - JANUS/Ada 
Compiler Version - 1.47 
Linker Version = 1.47 
Target Hardware - Intel 86/12A SBC 
Operating System - CP/M-88 (version 1.14) 
Peckege description: 

The Concutil package contains utility progrems for the 

CONCEnl Pavone. 
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2 SUBROUTINES 
A ama ue ule 
(1) Type: Procedure 
(2) Purpose: To check the queue for waiting 
processes. 
(2) Description of Parameters: A value of type 
Integer indicating the number of processes waiting in the 
queue is one input parameter. A value of type Integer indi- 
cating the port for whom waiting processes are being checked 
is the other input para-meter. A value of type Integer 
indicating the position index of the waiting process is one 
output variatle. A value of type Boolean indicating whether 
or not there are waiting processes iss themweotner output 
veriable. 
(4) Sutroutines Called: 
Check port 
Queue status 


e 


(5) Process Descrivtion: 
IU PL noreste queve for welting processes. 


Cot ere are none in the queue then false is returned. If 
there are processes in the queue, a check is made if they are 
waiting for the specified port. Jot false Ys returned. 


ere are processes tr the queue and they are waiting for 
Io tte Port, their ecsition in the queue is returned 
along with a value of true. SR tl nne sahne 
Seecitted sort what Ys wetrtine for it ard tells the sender of 
Muela 11118 process to resend. 


b. Net stat 
(1) Type: Procedure 
(2) Purpose: To decode and transmit the list of 
EC EURO terminals in the network to the Weques tor . 
(3) Description cf Feremeters: A value of type 
ausser ~ indicating the port for which the ret status is 


intendec. 
(4) Sutroutines Called: 
Sent Ia Do Loca 

(5) Frocess Description: 

SSS tne trensmission of the list of 
active network terminals. Vet stet checks the data structure 
“active list” fcr those terminals for which true has been 
reccrded, indiceting that they are active and stcres the 
terminal number information in the data structure ‘who list’. 
NS o list” that is transmitted to the requestor. 


BACC CODASMLIR 

1. CONFIGURATION 
Language - JANUS/Assembler 
Cor iler vern mon wo 
finker Versiot =- 1550 
¡meet fardware sminte: Se712A SBC 
Operating System - CP/M-86 (version 1.14) 
E E descripticr: 

Th Coasmlib package Contains the litrery of assertly 

language sutroutines for the Concentrator. 
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2. COMMENTS 

a. dJANUS/Ade parameters for JANUS/Assemtler modules 
are placed on the stack at sutroutine call with the lest 
mememebver closest te the ton and the return address on the 
MET y Op Discrete values are passed for parameters of type 
IN end the address of the perameter is passed for types OUT 
and IN OUT. Upon return to the celling program OUT end IN OUT 
parameters are removed fror the stack along with the return 


address. 
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t. The following sutroutines invuclve input end ou UE 

Check mere 

Connect 

Queue status 

Send ON ENS T 

Broeccest 

Concxfer 

Xfer 

No xfer 

The rethcd of trersrission used involves an immediate 
echo checking procedure. The sencing subroutine transmits 
tytes of date one at a tire. The receiving subroutine 
receives the Jata tytes and echos each one immediately upon 
reception. The sending sutroutine comteres the echo with the 
transmitted data = and ehecrs for error i nem MEME: 
detected, the sending subroutine either simply retransmits or 
sends an error code to tell the receiving subroutine that the 
data previously received (and processed) was in error, 
fcllowed by the retrarsmitted data. All receiving subroutines 
contain a inae waiting tire after the last data was 
received to ersure that the final ecno was received troopers 


o. SUBROUTINE 
a. Check port 

(1) Type: Procedure 

(2) Purpose: To poll retwork ports looking for the 
active signal 

(2) Description of Parameters: A velue of type 
Integer containing the address of the port to bpe pollen 
the input vario ler A value of type Boolean indicating the 
result of the poll is themoutpn te pew M 

(4) Sutroutines Celled: N/A. 

(5) Process Description: 

Check Tort polis the port indicated looking for uma 
active signal (@D@h). It will poll fer a finite per i odie 
time. If no Signal, or the wrong signal, is found, ready is 
set to false. If the active signal is found, ready is set to 
Truce Check port 15 Useduifor two Eurroses. It is used te 
initially poll ports for incoming requests (indicated ty 
active signal) and to poll a destination port to determine if 
it is ready to receive. 


t. Connect 

(1) Type: Procedure 

(2) Purpose: To receive the connection record 
transmitted by the sending Z-190. 

(3) Description of Farameters: A value of type 
Integer containing the address of the port from which the 
connection record is to be received is the input parameter. 
A value of type Integer indicating the address of the data 
Structure in which the connection record is to be stored is 
the OUTPUT parafeter" 
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(4) Subroutines Called: N/A. 

(5) Process Description: 

Connect receives the connection record, sequen- 
tially, cne byte at a time and stores it in the data struc- 
iim aii rcaledmm in wENe sit put parameter until a sequence of 
four finish codes (@FFh), irdicating end of block, are 
received. 


CU Cue DE 

(1) Type: Procedure 

(2) Purpose: To inform a polled port of the status 
DAA in preeesses in the queue. 

(3) Description of Parameters: A value of type 
Perefer es Containing the “address of the polled port is one 
input parameter. A value of type Byte indicating the process 
waiting in the queue (or none) is the other output perameter. 

(4) Subroutines Called: N/A. 

(5) Process Description: 

SEL elsen skonne port indicated ty one 
input parameter the tyte value of the process waiting for 
eat port (or none). 


d end yho rock 

(1) Type: Procedure 

(2) Purpose: To trersrit the data structure contai- 
ning the net status. 

(3) Tescription of Farameters: A value of type 
MM convsinine the address of the port to which the net 
status ís destined is one input parameter. A value of type 
accen indicating the address of the data structure contai- 
DM "ne Net Status is another input parameter. A value of 
type Integer indicating the length of the data structure is 
the lest output parameter. 

(4) Subreutines Called: N/A. 

(5) Process Description: 

send who block transmits the cata structure contai- 
ning the net status sequentially, one tyte at a time, until 
the length counter equals zero. Then it sends out a sequence 
of four finish codes (@FFh), indicating end of block. 


e. Proagcast 

(1) Type: Procedure 

(2) Purpose: To transfer data in a troedcest mode: 
frcm one to many. 

(3) Description of Ferameters: A value of type 
Integer containing the address of the sending port is the 
ME ximeber. A value of tyre Byte containing the address 
meee store the input temporarily is the output parameter. 

(4) Subroutines Called: N/A. 


feo 


25) Process Description: 

Broadcast controls the transmission of data fror 
the sending pontetosedi recen NU OE The data is tran- 
sritted one byte at a time as rapidly es possible to all 
ports (bypessing the sender, and the tulletin board). The 
first tyte is received from the sen@ing  pertespecin fecu eee de 
first iunpu Spares ME It is then sent in uc succession 
to all the ports teginning with the first port in the net: 
work. Broadcast increments the receiving port until all the 
ports ere addressed end the byte is transritted. The input is 
saved temporarily for error checkirg. Then Broadcast loops 
back to receive the echoes. If there are any echoes in 
error, that port address is saved until all the echoes have 
been received. Then all the addresses in error are serviced, 
one et e time until the error is corrected. At this) pov 
or if there were no errors, Broadcast echoes back to the 
sender the received byte for the sender'/s error checking. If 
there was an error, the sender sends out an error code then 
the retransmitted byte and the entire process is repeated 
until the error is corrected. If there isencoverror, them 
byte is transmitted to the Concentrator until a Sequence 
four end of process code echoes (2F1h) are received from all 
the receiving terminals. Broedcast waits only a finite 
period of time for echoes from each receiving terminal, so if 
e terminal is inactive, the bytes transmitted to it will te 
continuously overwritten. No attempt is made to bypass 
inactive terminals. 


ae 

(1) Type: Procedure 

(2) Purpose: To transfer data from a sending ter= 
miral to å single destination terminal. 

(3) Description of  Feremeters: A value of type 
Integer containing the address of the sending sport is eon. 
input parameter. A value of type Integer containing the 
address of the receiving port 1s) treo nero rane ere 

(4) Sutroutines Called: N/A. 

(5) Process Description: 

Concxfer controls the transmission of data tetween 
two termrial ci The first byte is received from the sending 
port indicated by the first input parameter and transmitted 
from the receiving port indicated Shy etnessecend i parame E 
The echo is then received from the receiver and transmitted 
to the senders Conexfer performs no error checking, it 
merely passes data and echoes back and forth until it 
receives a sequence of four end of process cole echoes (2F1!) 
from the receiver. kt that Dpoint it terminates the 
CONNEC G10 ae 
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E. er 
) Type: Procedure 
) Furpose: To inform the sendirg port that a 
connection has teen estatlished. 

(3) Description cf Parameters: A value cf type 
Integer -corteining the address cf the sending port is the 
NIU E LEE 

(4) Swereutines Callec: NEN 

CN occs-EPescriptign: 

Xfer trensmits to the sending port a code (21h) 
informing it that a cornection hes teen estetlished. 


Xf 
Kei 
(2 


T 

(1) Type: Procedure 

(2) Purvose: CO o nte Sendine port that a 
merrectLicy car rot te established. 

(3) Description cf  Feremeters: A velue of type 
meee r  COntcining the address cf the sending port is the 
wut parameter. 

(4) Subroutines Called: N/A. 

(5) Process Tescription: 

No xfer transmits to the sending port a code (82h, 
Momias” 1t that 2 connection can rot te established. 


D. CONCNAFE 
I CONFIGURATION 

Language - JANUS ‘Aca 
Compiler version — 1347 
Linker Version - 1.47 
Target Fardware ~ Intel f£6/12A SEC 
Operating System - CP/M-86 (version 1.14) 
w ac kaze description: 

The Concname specification contains the following 
EN Uc OF JECTS: 

eve DpOvess stetus 

max que 

Ia Eque 

queue 

Resend 

zero 

rechr o 

ready 

active list 


hy DD OD 
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APPENDIX D 
LISTING OF Z-100 PROGRAMS 


PACKAGE Names IS 
--* GLOBAL TYPES, CONSTANTS, AND VARIABLES *-- 


TY PERSONALS 
RECORD 
process: tytes 
source: byte; 
destination: byte; 
END RECORD; 


connection Cone tni 
TYPE blk IS ARRAY IRE) OF Dyte, 
block: DIK: 


block size: MCONSTLANT IIM EZET: IC 
retrn: CONSTANT BYTE := tyte (16*9D4); 
space: CONSTANT BYTE := tyte (164204); 
Inputs COUR 

pause: byte; 

confirm ets ce. 

drive: byte; 

code: Monteren 

dest, srce: Integer; 

send ready: Poolean; 


END Names; 


PACKAGE Xferfile IS 


TC Eed 

RECORD 
dr: byte; 
fn: ARRAY (1..8) OF byte; 
ft: ARRAY (1..3) OF byte; 
ex: byte; 
s1: byte; 
s2: bytes 
rc: byte; 
dn: ARRAY (1..16) OF tyte; 
cr: byte; 

END RECOM, 
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mei. rcb: 
e A A 


PROCEDURE Sendfiles 

PROCEDURE Peceivefile; 

PROCEDURE Parse cap (fcb2: OUT fcts fnlen: OUT Integer); 
FND Xferfile; 


WITH Myutil, Myasmlit, Names; 
PACKAGE BODY Xferfile IS 


USE Myutil, Myasmlit, Names; 


Powe DUA tse teens 


ICEAUDHOSQU THOMAS V. WORKS 
AA ss 

= O SENDFILE PROMPTS THE USER FOR FILE NAME * 
--* AND TYPE, OPENS THE FILE AND TRANSMITS EACH 128 BYTE * 


-—* RECCRD UNTIL END OF FILE. UPON COMPLETION, SENDFILE = 


~-* CLOSES THE FILE AND RETURNS TO MAIN MENU 


Moyvues: integer = Us 
ctrl f: CONSTANT BYTE :- byte (164064); 


BEGIN 
"IBarscrn: 


ao Soe Ont OPERATIONS === 


fcoil dr ‘= byte(?); 
fcbl.ex :-2 byte(0); 
Reset disk; 

IT HE 


-—* PROMPT USER FOR DISK DRIVE *-- 


Drive select (drive); 
New line; 


--* PROMPT USER FOR FILE NAME AND TYPE *-- 


LOOP E 
Put ("INTER FILE NAME. ); New line; 
LOOP 
Fut ("FN.FT: "); 
Parse cap (fcbi, fn_length); 
E FILE); 
Cutconsole (drive); 
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pute sue 
FOR i IN 1..fn length LOOP 
Cutconsole (fcbi.fn (i) ); 
END LOOP; 
Ris te ee 
FOR i IN 1..3 LOOP 
Cutecnsole Cfcbl .ft sae 
END LOOP; 
Put (" IS SELECTED. PRESS RETURN TO CONFIRM, "); 
Put ( ANY OTHER KEY TO RENIEC DE 
Keyin (confirm); 
New line; 
IF confirm = retrn THEN 
IT; 
END IF; 
Put ("ENTRY CANCFLLED. REENTER FN:FT."); New line; 
New line; 
END LOOP; 


Open file (fcb1 “ADDRESS, code); 
fob cr <= ery te wg); 


== SET DMA TO ADDRESS OF. DATA STRUCTURE THATE WARES 
== EOLD DATA READ PROMS aie 


Set DMA (tlock’ ADDRESS); 


--* IF COLE = 255 (@FFh) THEN FILE COULD NOT BE 
--* FOUND AND PROMPT USER TO REENTER FILE NAME AND 
--* TYPF 


IF code /- 255. THEN 
PUE 5 
Outconsole (drive); 
EE 
FOR í IN 1..fn length LOOP 
Cutconsole (fcbi.fn (i) ); | 
END LOOP; 
Patr 
POR i INTI. - < LOUR 
ENEE (ferl. (05 
END LOOP; l) 
Put (" IS OPENED.” ); New line} 
Clearscrn; 
EXIT; 





END IF; `, 
Put ( FILE NOT FOUND. PLEASE TRY AGAIN. ); New_line; 

END LOOP; 

--* PROMPT USER FOR DESTINATION AND SOURCE TERMINAL #°s *-- 


Enter machine (dest, srce); 


ag 


--* CREATE CONNECTION RECORD *-- 


connection.destination := byte (dest); 
connection.source :- tyte (srce); 
connection. process S-Bcetrl f; 


a oets PARPLISH CONNEGI TON wiTH DESTINATION *-- 


Put ( WAITING... ); New line; New line; 
Setup (connection'ADDRESS, send ready); 
Pie Sen de cic yee n 
IF dest = @ THEN 
Put ("FCR BROADCAST, PAUSE TO ALLOW RECEIVER TO "); 
Put ("GET READY”); New line; 
Put ("PRESS ANY KEY TO SEND. "); 
XKeyin (pause); New line; New line; 
END IF; 
Put ( CONNECTION FSTABLISHED, SENDING FILE... `); 
New line; New line; 


ANE ENEE ENS BYTE FLOCKS *-—— 


LOOF 
Read seq (fcb1’ADDRESS, code); 
IF code = 1 THEN 
ess 
EXIT; 
ELSE 
No; 
END IF; 
Send tlock (block “ADDRESS, block size); 
END LOCP; 


Close file (fcbl’ADDRESS, code); 
Put ("FILE SENT. )3 New line; 
Sm P ` 
Put ("FILE NOT SENT. DESTINATION INACTIVE."); New line; 
PND IF; 
Fut ("PRESS ANY KEY TO CONTINUE. "); 
Keyin (pause); 


END Sendfile, 

PROCEDURE Receivefile IS 
AU DA OE: RE 
=e ne tat ed eee 


-—* DESCRIPTION: RECEIVEFILE PROMPTS THE USER FOR FILE as 
=o NAME AND TYPE, CREATES THE FILE, AND RECEIVES THE 128 ¥*-- 


el 


--* BYTS BLOCK FROM THE SOURCE SAND Woe) CO) 21s OMNES £ 
--* END OF FILE. THEN TT HHH T TTI 
==" BYTES RECEIVED. LASTLY IT RETURNS TO MAIN MENU. K 


rtytes Integer D: 
length: Integer; $ " 
reason2: STRING := END OF FILE. ; 


finished: Boolean := false; 


BEGIN 
Clearscrn: 


=-* SET FUB POR PILCE OPERATIONS cS 


feti an 
Ce EE 


GE Ee ME 
Reset diss; 


t N 
byte(@) ; 


==* PROMPT USER FOR DTSK DATE =- 


New line; 

Drive select (drive); 

New line; 

Put ("ENTER FILE NAME."); New line; 


== PROMPT USER EOR ET EE ONAVE Ay ee = 


LOO? S . 

Put ( FN.FT: E 

Farse cap (fcbi, fn length): 

Nw nc E 

But AB FILE 5 

Outconsole (drive); 

Put (”: ); 

FOR 1 IN 1..fn length TOOP 
Outconsole (fcbi.fn (1) ) 

END LOOP} 

Puto aa; 

FOR i IN 1..3 LOOP 
Outconsole (febi.ft (1) J; 

END LOOP; | 

Put (" IS SELECTED. PRESS RETURN TO CONFIRM, "); 

New line; | 

Put ("ANY OTHER KEY TO RESELECT. )3 

Keyin (confirm); 

New line; 

IF confirm = retrn THEN 
EXIT, 

END IF; . 

Put (“ENTRY CANCELLED. REENTER FN:rFT."); New line; 

New line; 

END LOOP; 
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Delete file (fct1°ADDRESS, code); 
Create file (fcbt1l°ADDRFSS, code); 
Petrwer c=enyte (8), 


ao UDDILDoSSONM TATA STRUCTURE THAT WILL *-- 
2 OA DARAS EGEL EVED FROM SOURCE mer 


Set DMA (tlock’ ADDRESS); 
LY COEM LA EN x 
Put ( DIRECTORY SPACE UNAVAILABLE. }3 
ELSE 
Pot 1 
Cutconsole (drive); 
Put (ee 
FOR i INE a length LOOP 
outconsole Tfcb1.fn (1) 
END LOCE; 
Put (" 
FOR i IN 1. -3 LOOP 
Outconso emc Ei ft 1i) ); 
FND LOOP; 
Put (" IS OPENED."); New line; 
Clearscrn; 


Ye 
1) 


--* RECEIVE AND WRITE FILE IN 128 BYTE BLOCKS *-- 


Put ( RECEIVING FILE... ); New line; 
LOOP 
Enáfile (finished); 
EXIT WHEN finished; 
Recv block (tlock' ADDRESS, length); 
Write _seq (£ct1' “ADDRESS, code); 
END LOOP; 


IF code = 1 THEN 
Put ("ERROR. NO AVAILABLE DIRECTORY SPACE.'"); 
New line; 
ELSIF code = 2 THEN R 
Put ( ERROR. DISK FULL. ); New line; 
ELSE 
Put ("FINISHED WRITING FILE.”); New_line; New line; 
END IF; 


Close file (fcb1°ADDRESS, code); 

rbytes :- rbytes * 128; . 

Put int (rbytes): Put (" BYTES RECEIVED."); New line; 
END IF; 
Put ("PRESS ANY KEY TO CONTINUE. ^"); 
Keyin (pause); 


END Receivefile; 
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PROCEDURE Perse cap (fct2: OUT fcti fnlen: OUT Integer) IS 


-—* AUTHOR: THOMAS V. WORKS 

--* DATE: SEFTEMBER 1986 

--% DESCRIPTION: PARSE CAP PARSES THE USER'S FILE NAME k- 
-—* AND TYPF FOR INVALID CP/M-86 CHARACTERS, CEANGES INPUT *2 
--* TO UPPERCASF, AND PLACES IT IN APPROPRIATE FIELDS OF "S 
--* FCR. " 


period: CONSTANT BYTE :- byte (15#2F#); 
lthen: CONSTANT BYTE Byte 166565; 

gthan: CONSTANT BYTE tyte(16#3E#); 

cerma: CONSTANT BYTE tyte(16#2C#) ; 
semic: CONSTANT BYTE Eyte (1645245 
colon; CONSTANTINA tyte(16#ZA#); 
equal: CCNSTANT BYTE byte (16 asd# ); 
qmark: CONSTANT BYTE ty te(16#3F# ); 
star: CONSTANT BYTE byte(16542A8); 
lbtrac: CONSTANT BYTF ( ; 
rtrac: CONSTANT BYTE ( ; 


tyte(16452R4) 
tyte(1845D4) 


TYPE nare IS ARRAY (1..8) OF tyte; 
filereame: nare; 

Cepital: Integer; 

¡AA sE 
nN: Integer 


9; 


BEGIN 


—-—-* PARSE PILETINA MEL E 





LOO P 
Keyin (input); 
Cutconsole (input); 
CAS eine to 
WHEN lthan!gthan!commalsemic!colon! 
equallqmark!star!lbracirbrac 
-» New line; Put ("INVALID. TRY AGAIN. )3 
New line; 
WOR Sie Ne 1 here OOF 
Outconsole (filename (i)); 
END LOOP; 


WHEN pericd => EXIT; 
WIEN OTHERS 
=> k := k + 1; 
filenames(k) =- input: 


END CASE; 


EXIT WHEN k = 85 --* MAX FILE NAME LENGTE *-- 
END LOOP; 


a4 


IF k = 8 TEEN 
Pr); 
END TE; 


SN UA O = 


LICOP 
Keyin (input); 
Cutconsole (input); 
TEU Ls 
WEEN lthan!gthan!comma!semic!colon! 
equal Star! l Erac!rbrac!pericid Å 
=S New lines Put ("INVALID. TRY AGAIN.'"); 
Newer. es 
PO here elo LOOP 
Outconsole (filename (i)); 
END LOOP; 
Pet C]; 
RCHa ALO? 
Ouveonsole (fcb2.ft (j3))5 
END LOOP; 


WHEN OTRERS 
=> h :=h + 13 
Gre athens input; 


END CASE} 
EXIT WHEN nh = 2; --* MAX FILE TYPE LENGTH *-- 


END LOOP; 


--* PLACE PARSED INPUT IN FCB ADDING BLANKS TO FILL UP *-- 
--* FIELDS ho 


fnlen := k; 
FORMI IN 1...8 LOOP 
fet2.fn (i) := filenare (i); 
IF i = fnlen THEN 
FOR j IN (fnlen + 1)..8€ LOOP 
£ct2.fn (j) := space; 
END LOOP; 
EXIT; 
END IF; 
END LOOP; 
New line} 


-~* CAPITALIZE FILE NAME AND TYPE *-- 


FOR ITIN 1..fnler LOOP 
cepital := Integer (fct2.fn (1)); 
CASE capital IS 
WEEN 16#61#..16#7A# => capital := capital - 165420; 
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WHEN OTHERS => NULL; 
END CASE; 
fcr2.fn 8 UE (capital); 
END LOOP: 


FOR j IN fee LOOP 
capital ‘= Integer (fct2.fi (3))5 
CASE capital ÉS 
WHEN 184618. .15%47A% =>» capital == ean. tas 164208; 


WHEN OTHERS => NULL; 
SIE TD 
tecto EES byte (capital): 
END LOOFs 


eee Parse cap? 


en we wg emp "SÉ E "H 
Lee ee Ee Gem ee ee e EE EE EE 555 T 


PACKAGE Messages Is 
PROCEDURE Talking: 
PROCEDURE Listening» 

END Messages: 


WITH Myasmlit, Myutil, Names) 
PACKAG RODY Messages L5 
Us Myasmlib, Myutil, Names; 


end OË msg: CONSTANT BYTE += byte ( LE#1A#):; --control Ar" 
max msg_length: CONSTANT += 16205 

max line length: CONSTANT := gg; 

message: ARRAY (1..max msg length) OF bytes 

msg length: Integer» 

line length: Integer: 


PROCEDURE Talking I5 


-—* AUTHOR: THOMAS V. WORKS 
-—* DATE: AUGUST 1986 

_-* DESCRIPTION: TALKING PROMPTS USER DON P S MESSAGE, EG 
--* STORES MESSAGE IN DATA STRUCTURE AND TRANSMITS MESSAGE "Y 
--* TO DESTINATION AS A SINGLE BLOCK. "re 


ctri m: CONSTANT BYTE 
ctr Was. CONSTANT BYTE 
response: tyte: 


ty te (16#ØD#); 
tyte (168138)! 
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REG IN 
LOOP 

Clearscra, 
Eð A USE CTRL Z TO STOP. ); 
New line: 
Put ("MAXIMUM MESSAGE LENGTH IS 16929 CHARACTERS."); 
New line; New line; 
line length := 8; 


-—* TYPE IN PAGE FORMAT: 29 LINES, 89 CHARACTERS *-- 
~-* PER LINE | e 


FOR i IN l..max msg length LOOP 
Keyin (input); 
EXIT WHEN input - end of msg; 
message (1) := input; 
MSC a 15 
I Line length + 1; 
Outicossolhed input) 
a a OR 
(line length - max line length) THEN 
New line; 
Fre Tensth := 0; 
END IF; 
END LOOP; 
New line; 


Put ( END OF MESSAGE. ); New_lire; New _ line; 

Put PERGI TO SBND. [ANY OTHER KEY TO RETYTEE ^); 

Put ("MESSAGE."); New line; 

Xeyin (response); 

IF response = ctrl s THEN 

EXIT; 

END IF; 8 

Put ( MESSAGE ERASED. ); New line; 
END LOOP; 
New linej E 
Put ( IF YOU WANT TO SEND TO THE BULLETIN BCARD, ); 


New line; . 
Put ("ENTER 24 FOR DESTINATION MACHINE."); 
New_line; New _ line; 
--* PROMPT USER FOR DESTINATION AND SOURCE TERMINAL #°S *“-- 
Enter machine (dest, srce); 
Joti he CONNEC LION ECORD “== 


connection.destination := byte (dest); 
connection.source := tyte (srce); 
connection.process := ctri_m; 
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--* HSTABLISE CONNECTION WITS IST EA E 


Put ("WAITINSG..."); New line: New line; 
Setup (connection “ADDRESS, send ready); 
IF send ready THEN 
IF dest = 0 TIEN 
Put ("FOR BROADCAST, PAUSE TO ALLOW RECFIVER TO 
Put ("GET RFADY^ Ji New linei | 
Put (PRESS ANY KEY TOPS ENET 
Keyin (pause): New line: New line: 
END IF; 
Put ("CONNECTION ESTABLISHED, SENDING MESSAGE... 1 7 
New line: New line; 


-—* SC DEER BIOS 


Send block (message'ADDRESS, msg length); 
Yes; 


Put ("MESSAGE SENT." ): New lire; 

ELSE 
Put ("MESSAGE NOT SENT. DESTINATION INACTIVE."); 
New line; 

END IF; 

Put ("PRESS ANY KEY TO CONTINUE. "); 

Keyin (pause); 


*ND Talking: 
PROCEDURE Listening IS 


--* AUTHOR: THOMAS V. WORKS 

--* DATE: AUGUST 1986€ 

-—* DESCRIPTION: LISTENING RECEIVES TRANSMITTED MESSAGE 
--% AND DISPLAYS IT IN A PAGE FORMAT OF 28 LINYS, 86 | 
--% CHARACTERS PER LINE. "ch 





char: byte; 
EFG IN 
Clearscrn; , 
Put ("RECEIVING MESSAGE... ); New_line; 
--* RECEIVE ENTIRE MESSAGE *-- 
Recv tlock (message ADDRESS, msg length); 
Endmsg; A . 
Put int (msg length): Fut (" BYTES RECEIVED."); New line 
=-%* DISPLAY IN SAME PAGE FORMAT AS TYPED *-- 


lire cane ti oc 


EG 


EIS 


FOR i IN @..(msg length - 1) LOOP 
kar e messaze (1): 
Dna lene ue ne ereti = t, 
Cutconscle (char); 
IF (char = retrn) OR 
(line length - max line length) THEN 
New line; 
line length 
END IF; 
ENDS LOOE; 


ð; 


New line; New line: 

Put (“END OF MESSAGE. ): New line; 
Put ("PRESS ANY KEY TO CONTINUE. “); 
Keyin (pause); 


END listening: 


ssages: 


mu as e d ëmm. wë. wë. US o ———————P——LP vu wë. US e m, Hum a om ër 0 mm. 0 eng mmm d ëmm. wë. wm. ëm. wë. wë. wë. e A A is m, mis N m, m ` mm, wu ` vm wë, ëmm, 
a A o of ag oe mm ls me mm ëmm, em r m vm e A A o e of — of mee cree mmm mmm r gem mm mm wm, 


FACKAG 
PRO 


E Directry IS 
PEE Ae Presented ra 


pu EDU Receive dini 


END Ti 


WEISE. SK 


Lectry; 


ferfile, Myutil, Myasmlit, Names; 


PAC EACE PODY Directry I5 


USE 


PRO 


em wm dÉ 
-—— 2 
C E 
acude... 


ale 
— emp > 


Xferfile, Myutil, Myasmlit, Names; 


CEDURE Present dir IS 
AUTHOR: THOMAS V. WORKS 


* DATE: AUGUST 1986 
* DESCRIPTION: PRESENT DIR PROMPTS THE USER FOR TEF i 
REQUESTED DISK DRIVE AND TRANSMITS THE DIRECTORY EIGHT * 


ENTRIES IATA OIE TRAS INTIL TEE ENTIRE 
DIRECTOR WIS SENE, 


nodir str: STRING := “NO LIRECTORY ON SELECTED DRIVE. : 
dir. size: CONST ei. — 16, 

count: Integer; 

ctrl d: CONSTANT BYTE :-s tyte (1€8048); 

qrark: CONSTANT BYTE :- tyte (1643F#); 


DPS Kreess LEE OR byte; 


Curt Cr: Stites 
dirvdadr- imvecer, 


&9 


EEG IN 
Clearscrrnr: 
feri dr sey tea. 
fcbi.ex :- byte(2); 
Reset disk; 


--* WILD CARD FOR MATCHING ENTIRE DIRECTORY *-- 


FOR. i IN 1. 2599075 
fcbtofn (DUR a 

END LOCP; 

FOR 1 IN TA REO 
fcbl.f M E a 

END LOOP; 


New line; 
== “PROMPT USER E OR. 0 Ts cee a 


Drive select (drive); 
New line; 


-—* PROMPT USER FOR DESTINATION ANL SOURCE TESMTNOUM MI 
Kater machine (dest, sree); 

=-% CREATE CINNECTION RECORD *-- 

connection.destination := tyte (dest): 
connection.source := tyte srce: 


CONNECTION. ITI 


--* WSTABLISE CCNNECTION. Wh Loe. Roh Ac Ones == 





Put ('WAITING..."); New line; New line; 
Setup (connection ADDRFSS, send_ready); 
IF send ready THEN 
IF dest = @ THEN 
Put ("FOR BROADCAST, PAUSE TO ALLOW RECEIVER TO `) 
Fut ("GET READY"); New_line; | 
Put ( PRESS ANY KEY TO SEND. "); 
Keyin (pause); New_line; New_line; 
END IF; 


Put ("CONNECTION ESTABLISHED, SENDING DIRECTORY `); 
Put ( FROM DRIVE `); 4 À 
Outconsole (drive); Put ( ... Ji New_line; New_line 


zelt SET DMA EE ODER E a Me 
--* WILL HOLD DIRECTORY ENTRIES CC 


Set DMA (buffer ADDRESS); 
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—-~* TRANSMIT DRIVE *-- 
Driveout (drive); 
ME MAKE FIRST DIRECTORY MATCH *-- 


SE EE MI tI DDR Aso buffer ADDRESS, code, 
dir_addr); 
IF cede = 255 TEEN 


--* NO MATCH, TRANSMIT NC DIRECTORY STRING *-- 


Put str (nodir,str); New line; 
No; 
Send string (nodir_str); 
HacK: 
res; 

ELSE 


--* TRANSMIT DIRECTORY ENTRY *-- 
No; 


Seod dir NE Macdro dir size); 
CIONES T 


LOOP 
LO 
E SUCCESSIVE MATCEES UNTIL END pus 
Or onn = 255) qe 
Search next (fcti'ADDRESS, tuffer'/ADDKkESS, 
code, dir addr): 
EXIT WHEN code = 255; 
a TRAA A ENTRIES PER BLOCK *—- 
Serdar ll Fir size): 
count := count + 1; 
counts e TEEN 
count := 2; 
EXIT; 
END IF; 
END LOOP; 
IF code = 255 THEN 
Nos 
nd block: 
EXIT; 
END IF; 
End block; 
NO! 


91 


--* PAUSE AFTER EACH BLOCK FOR BROADCAST *- 


IF dest = ? THEN 


Put ("230ADCAST, PRESS ANY KTY TO SEND. 
Keyin (pause); New line; 
END IF; 
END LOOP; 
Yes; 
END IF; 
Put ("DIRECTORY SENT."'; New line; 
ELSE 
Put ("PIRFCTORY NOT SENT. PESTINATION INACTIVE.'"; 
New line; 
END IF; 


Put ("PRESS ANY KEY TO CONTINUE. "ii 
Keyin (pause); 


END Present diri 


y 


AM 


/ 


-p A A P ewe A A ge A ege ege gien ve mmm A ge - ge Bean = CO vm ge gp Pee Ss emm gg vm Ge emm eme UA ge SS ge ge emm mmm aS ow ae a vm emm A mm gien gn gn eme, ome cee emm emm ac: 


PROCEDURE Receive dir IS 


--* AUTHOR: THOMAS V. WORKS 
--* DATE: AUGUST 1985 
--* DESCRIPTION: RECEIVE DIR PROMPTS TEE USER FOR THE 


--* FILE NAME AND TYFE IN WHICH HE WISHES TO STORE ENTRIES *- 


--* RECEIVED. USER CAN SELECT WHICH BLOCK(S) OF € ENTRIES 
--* HE WISHES TO SAVE, WHICH ARE THEN WRITTEN TO DISK. 


choice: tyte; 

rtytes: integer "e ð; 

length Integer: 

finished: Boolean := felse; 

k: Integer; 

start, fini: Integer; 

period: CONSTANT BYTE := tyte (1642E#); 
no: CONSTANT BYTE :5 tyte (18585E8); 


BEG IN 
Clearsocrn; 


-—* SET FCB FOR FILE OFERATIONS *-- 
febl.dr := byte ou 

fol ex tery ten). 

Reset_disk; 

--* PROMPT USER FOR DISK DRIVE *-- 
New line: 


Drive select (drive); 
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ate 
T)?" ame 





«lo 
oT? am e 


ate 
^^ ame 
1 


New dme; 
pS heist her Ones NAM’ AND TIPE “== 


Put ("ENTER FILE NAME TO STORE YOUR DIRPCTORY.'"); 
New line; 
LOOP 
Put HUMUS 1 
Por e corecti, fn length); 
NG Wot Were 
EE EE 
Oc nso Lemar te); 
puta eum). 
ENSIS Inerenunseth L9OF 
Outconsole (fcbi.fn (i) ); 
END LOOP; 
Dut o ( 20 
FORM INAI TO LJOP 
utente rori fti) ); 
END LOOP; . 
Put (" IS SELECTED. PRESS RETURN TO CONFIRM, `); 
New line; „ 
Put ( ANY CTHER KEY TO RESELECT. ); 
Keyin (confirm); 
New line; 
(ERC ONLI = TEtrTo IFAN 
EXIT; 
END IF; : 
Put ( ENTRY CANCELLED. REENTER FN:FT. ); New line; 
New line; 
END LOOP; 


Delete file (fcri ADDRESS eode); 
Create file (fcb1'ADDRESS, code); 
etl eT PIENE 


SPD ADDRESS OF DATA STRUCTURE THAT WILL =*=- 
--* HOLD DATA RECEIVED FROM SCURCE Sons 


Set DMA (block'ADDRESS); 
Clearscrn; 
If code = 255 THEN 4 
Put (“DIRECTORY SPACE UNAVAILABLE." ); 
PESES ` 
EE KE 
Duke 
Ps e 
TORSIÓN I. . LnasenethubLoOP 
Outconsole (fcbi.fn (i) ); 
END LOOP} 
PIN NES 
PON LOOF 
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Qutconsole (fcbi.ft (i) ); 
END LOOP; t 
Put ( IS OPENED. ;; New line; 


--* RECEDUESDRTIVE OR INCOADO TORES 


Drivein (drive); m 
Put ("RECEIVING DIRECTORY FROM DRIVE ``; 


Outconsole (drive); Put (" OF SENDING MACHINE... ); 
New line: New line; 
LOOP 


--* RECEIVE IN 128 BYTE BLOCKS (@ ENTRIES) 
—-=* UNTID Ser VIR Pe LORY R 


Erdfile (finished); 

EXIT WHEN finished; 

Recv_block (tlock’ADDRFSS, length); 
IF tlock (1) /= tyte (2) TEZN 


==" NO MATCHES, DISPLAY NO DIRECTORY HII 


| 
e 


FCR 1i INT F2 LOOP 
Outconsole (TIo cK R; 
END LOOP; 
New line; 
ELSE 


--—* FORMAT EACH 8 DIRECTORY ENTRIES FOR Kae 
--* DISPLAY i. 


Start := 1; fini := 16; 
FOR i INXB..SNEOUP 
FOR j IN start:.f1ini COOP | 
EXIT WHEN block (start) = ro! | 
IF j = (start + 9) THEN 
Outconsole (period); 





FND IF; 

IF j > (start * 11) THEN 
block (j) := space; 
Outconsole (block (j)); 

ELSE 
Outconsole (tlock (j)); 

END IF; 

END LOOP; 
IF i = 4 THEN 
New line; 
END IF; 
start := start +G; fini := fini tee 
END LOOP; 
New line; 


END IF; 
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New xe, Now nes 

Fut ( PRESS RETURN IF YOU WANT TO SAVE ON FILE. ); 
Keyin (choice); 

New ¿Ae Ne Wie nes 


--“ WRITE TO DISK ONLY USER'S CHOICES *-- 


If cholce = retrn THEN 
Write seq (fctbl ADDRESS, code); 
"ND; 
END LOOP; 
New lines; New line; 


IF code = 1 THEN l) 
Fut ("ERROR. NO AVAILABLE DIRECTORY SPACE. ): 
New line; 
ELSIF code = 2 THEN 
Fut ("ERROR. DISK FULL."): New line; 
ELSE l c 
Fut ( FINISHED WRITING FILE. ); New line; New line; 
END IF; 


Close file (fcb1'ADDRESS, code); 


END IF; 

Mew TE " 
Put ("PRESS ANY KFY TO CONTINUE. I; 
Keyin (pause); 


END Receive dir: 


EECH EENG 


— og y ms og wrar ` og vm, eee ee weg weg eg og emm mmm ëm og om emm om emm vm mr eg engm emm es es es es ie ees ff ffr ee mmm mm se ee omg TU oam om om om emm om nie emm vm gem emm emm emm 
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PACKAGE Who IS 
PROCEDURE Whos there; 
END Who; 


WITH Myasmlit, Myutil, Names; 
PACKAGE PODY Who IS 
USE Myasmlib, Myutil, Neres; 


PROCEDURE Whos there IS 


-~* AUTHOR: THOMAS V. WORKS 

--—*5 DATE: SEFTEMEER 1986 

--* DFSCRIFTION: WHOS TEERE RECEIVES NET STATUS FROM THE *~- 
-~* CONCENTRATOR. ee 


mechno: CONSTANT := 24; 

whos on: ARRAY (1..machno) OF tyte; 
number on: Integer; 

ctrl w: CONSTANT BYTE :—2 byte í 


BEGIN 
Clear eoni 7 
Put ("FOR NET STATUS, ENTER YOUR MACHINE & FOR "); 
Put ( DESTINATION. ); New line; New line; 
--* PROMPT USER FOR SOURCE TERMINAL 4 *-- 
Enter machine (dest, srce); 
--* CREATE CONNECTION RECORD *-- 
ccnnection.source :- tyte (srce); 
connection.destinetion ze tyte (dest); 
connection.process := ctrl _w; 
--* ESTABLISH CONNECTION WITE DESTINATION *-- 
Setup (connection “ADDRESS, send ready); 
=-* RECEIVE NET STATUS AS A SINGIESRLOCK === 
Recv block (whos_on ADDRESS, numter on); 
--* DISPLAY CURRENTLY ACTIVE TERMINAL #Í s *-- 
Put ( THE FOLLOWING NUMBERED MACHINES ARE CURRENTLY "); 
Put ( ACTIVE: ); New_line; 
FOR i IN 1..number cn LOOP 


Put int (Integer (whos on (i))): New line; 
END LOOP; 


END Whos there; 
END Who; 


iii in ee ee ee eee br mb eee eee eee œ 
== = e + ao A —  — mm mp ce ee ee y eee br ee ee ee om es eee eee r œ 


PACKAGE Bullbrd IS 
PROCEDURE Recv tulletin; 
END Bulltrd; 


EJ 


MI vasmiib, Xferfile, Myutil, Names; 
PACKAGE EOTY Bullbrd IS 
Vsteryasmlic., Aterriles Myutil, Nemes; 


PROCURA E IS 


--* AUTHOR: THOMAS V. WORKS 

--* DATE: SEPTEMBER 1986 

--* DESCRIPTION: RECV BULLFTIN PROMPT USER FOR FILF NAME *-- 
--* AND TYPE IN WHICE HE WISHES TO STORE MESSAGES RECEIVED *-- 
--* FROM TEE BULLETIN BOARD, OPENS TEE FILE, RECEIVES DATA *-- 
--* IN 128 BYTE BLOCKS, AND WRITES TO LISK THE RECEIVED ho 
~—* DATA. eS 


recv_b: CONSTANT BYTE := tyte (1680248); 

BEGIN 
Clearscra; S 
Pot (ro RECEIVE BULLETIN BOARD, ENTER 24 FOR ); 
Put (“DESTINATION MACHINE.” ); New line; 
Enter_machine (dest, srce); 


EENEG EES S -- 


connection.source := byte (srce); 
ccnnection.destination :- byte (dest); 
connection. process. Oe CD 


==" FSTABLISH CONNECTION WITH BULLETIN BOARD *-- 


Put (" WAITING... ); New_line; New Line: 

setup (‘connection ADDRESS, send_ready); 

IF send ready THEN 
Put (CONNECTION ESTABLISHED. READY TO RECFIVE `); 
Put ("BULLETIN BOARD.’ )+ New line; New line; 


--* RECEIVE MESSAGES FROM BULLETIN BOARD AND x= 
--* STORE ON FILE zs 


Receivefile; 

Put ("BULLETIN EOARD RECEIVED."); New line; 
PISE 

Put (“BULLETIN BOARD INACTIVE. ); New_line; 
END IF; 
Put ("PRESS ANY KEY TO CONTINUE. ); 
Keyin (pause); 


END Recv_bulletin:s 


ENT Bulltrd; 
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PACKAGE Myutis 


PROCEDURE Put int (output: IN Integer); 
PROCEDURE Clearscrn; 
PROCEDURE Enter _ machine (machdest: OUT Integer; 
machsrce: OUT Integer); 
PROCEDURE Drive select (d drive: OUT byte); 
END Myutil; 


WITH Myasmlib, Names; 
PACKAGE BODY Myutil IS 
USE Myasmlib, Names; 


PROCEDURE Put int (output: IN Integer) IS 


-—* AUTHOR: THOMAS V. WORKS 

-—* DATRSOOUNEGÍSSO 

-—-* DESCRIPTION: APOT TNT DIS DA PEN IEA A UE SA 

—--* SEPARATING THE MOST SIGNIFICANT DIGIT AND DISPLAYING 
--* IT UNTIL THERE ARE NO MORE DIGITS. 


max: Integer :- 19220; 
count: Integer := 0; 

zero ctr: Integer := 1; 
tempi, terp2: Integer; 


BEGIN 
templ := output; 
IF templ < Ø THEN 
Put ( - )5 --* NEGATIVE NUMBER *-- 





FND IF; 
IF tempi - 0 THEN 
puc 
ELSE 
WHILE max /= @ LOOP 
LOOP 


-=-* REMOVE MOST SIENTE TCANTEDIGIT “5 


temp2 := templ/max; 
templ := tempi REM max; 
count := count + 1; 


--* REMOVE LEADING ZEROS *-- 
IF (count = zero ctr) AND (temp2 = @) THEN 


Zero ctr i= zero Ctr T; 
max := max/1@; 


aa 


END 


EXIT; 
END IF; 


aa eo ee OotmorGNIFI@ANT DIGIT *-- 


My put (temp2); 


max := max/ié@; 
IF max = Q THEN 
EXIT; 
END IF; 
END LOOP; 
--* UNTIL THERE ARE NO MORE DIGITS *-- 
END LOOF; 
END IF; 
Put_int; 


FROCEDURE Clearscrn IS 


— — X 
-—* 
— mm DÉI 


Je 
= amp y, 


END 


AUTHOR: THOMAS V. WORKS 
DATE: SEFTEMBER 1986 


DESCRTPTTON 
CODES CAUSI 


escape: CONS 


elrscen: CONSTANT BITE 


BEGIN 
Outconsol 


EE AE ENEE THE CLEAR SCREEN 
NG TEE SCREEN TO BE CLEARED. 

TANT BYTE byte(1541B4); 
tyte(1684548); 


e (escape); 


Outconsole (clrscn); 


New line: 


Clearscrn; 


New line; 


PROCEDURE Enter machine (machdest: OUT Integer; 


IS 
—À 
DE, 
E 
— 


machsrce: OUT Integer) IS 


AUTHOR: THOMAS V. WORKS 
DATE: AUGUST 198€ 


DESCRIPTION: 


AND DESTINATION TERMINAL NUMBERS AS A TWO DIGIT 


NUMBER AND THEN CONVERTS IT TO THE APPROPRIATE BYTE 


EQUIVALENT. 


machine: ARRAY (1..3) OF tyte; 
templ, temp2: Integer; 
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ENTER MACHINE PROMPTS USER FOR SOURCE 


< a-— æ 


Je 
oO? emp eme 


> am m 


REG IN 
Put ("ENTER DESTINATION MACEINE (21,02.. 
Put ("BROADCAST (900) i New line; 

Put ("FOLLOWED BY RETURN. ); New line; 
LOOP 
Put ("NCTE: BE SURE TO ADD LEADING ZERO."): New line| 


D) 
© 
ao 





=- CONVERT TWO DIGIT KEYECRRD SINEUT INTO PYNE M 
--* EQUIVALENT FOR DESTINATION TERMINAL æ 


FOR í IN 1..353 L00P 
Keyin (input); 
IF input = retrn THEN 


machine (1) := byte (16#3Ø#); 
EXIT; 
FLSE 
machine (i) := input; 
END IF; 
END LOOP; 


Put ("MACHINE NUMBER `); 


FOR i IN 1..3 LOOP 
Outconsole (machine (i)); 


END LOOP; 

Put (" IS SELECTED. PRESS RETURN TO CONFIRM."); 

New line; 

Keyin (confirm); 

New line; 

IF confirm = retrn THEN 

EXIT} 

END IF; 

Put ("ENTRY CANCELLED. ); New line; 

New line; 
END LOOP; 
templ :- Integer (machine (1)) - 168304; 
temp2 := Integer (machine (2)) - 16#3Ø#; | 
machdest := templ * 12 + temp2; | 
LOOP | 


Put ("ENTER YOUR MACHINE. NOTE: BE SURE TO ADD `); 
Put ( LEADING ZERO. ); New_line; 


--* DITTO FOR SOURCE TERTEKAN S 
FOR i T E 


Keyin (input); 
IF input = retrn THEN 


machine (1) := byte (164304); 
EXIT; 

FLSE 
machine (i) := input; 

END IF; 


1ØØ 


END LOOP; 
.. ) : 
D 


Put ("MACHINE NUMBER 


FORML IN les LOCE 
Outconsole (machine 


END LOOP; 
Put (" IS SELECTED. PRESS RETURN TO CONFIRM. ); 
New line: 
Keyin (confirm); 
New line; 
IF confirm = retrn THEN 
EXIT; 
END IF; . 
Put ( ENTRY CANCELLED. ); New line; 
New line; 
TND LOCE; 
tempi := Integer (machine (1)) - 1E#30#; 
temp2 := Integer (machine (2)) - 16#32#; 


machsrce rs templi * 1@ + temp2; 


END Enter_machines 


PROCEDURE Drive select (d drive: OUT byte) IS 


=—-~ es, UTHOR: TEOMAS V2.NORKS 

Par. SPP I PMBER LgeS 

DESCRIPTION: DRIVE_SELECT PROMPTS USER FOR SELECTED EC 
E DRIVE ANDI PASSES INPUT TO OPERATING SYSTEM. >i 


ate 
ap aaa > 


Mok dari ye: Integer; 
A: CONSTANT BYTE := byte (16#41#); 
B: CONSTANT BYTE := byte (16#42#); 
C: CONSTANT BYTE := byte (164432 ); 
D: CONSTANT BYTE := byte (16#44#); 
E: CONSTANT BYTF := byte (16#45#); 
--* IOWER CASE *-- 
sa: CONSTANT BYTE := tyte (1646154); 
sb: CONSTANT BYTE := vyte (164624); 
sc: CONSTANT BYTE := tyte (16#63#); 
sd: CONSTANT BYTE := byte (15#64#4); 
se: CONSTANT BYTE := byte (1E#E5#); 
BEG IN 

LOOP 


Pu SELECT RIMMER: A. Be C. D. E- ); 
Keyin (d drive); 


New line; 


121 


END 


CAS 


END 
New 


END Drive 


END Myutils 


wem n w wg eee eee ee ee ee ee es ee ee ee ee es ee mg ee ee mg m ee ee ee ee ee ee ee mmm mg ep omg eee a om emm wg ee œ Í 


Put IIE 
Outconsole (d drive); 


Put ( IS SELECTED. PRFSS RETURN TO CONFIRM, "); 


New line; 


Put ("ANY OTHER XEY TO RESELECT.”); 


Keyin (confirm); 
New line; 

IF confirm = retrn TEEN 

EXIT; 

END IF; 1 
Put ( ENTRY CANCELLED. )3 
New line; 

LOGE; 


L Ge VEINS 
WHEN A ! sa => 

disk drive := 
WHEN B ! sb => 

disk drives. 
WHFN C ! sc => 

disk drive E 
WHEN D ! sd => 

disk drive :- 
WHEN E ! se => 

disk drive :- 
WHEN OTHERS => J 

Put ( INVALID 

New line; 

disk drive := 

CASE; 

IES 


Tc electi; 


New line; 


0; Select disk 
1; Select disk 
MS e Lec 001 Sk 
3; Select_disk 
4; Select_disk 
DRIVE. DEFAULT 


0; Select disk 





(disk drive 
(disk drive 
(disk drive: 
(disk drive 
(disk drive: 
IS ME 


(disk drive. 


k ` emm. mmm. wf — P ` mm mm mmm wm g, mk emm omg wn A A eee End A 


PACKAGE Myas 
FROCEDURE 


PROCEDURE 


PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


PROCEDURE 
PROCEDURE 
PROCEDURE 


mlib IS 
Create_file (address: IN 
result: CUT 


Integer; 
Integer); 


Close file (address: IN Integer; 
result: OUT Integer); 

Open file (address: IN Integer; result: 

Read seq (address: IN Integers result: OUT Integer); 


Write seq (address: IN Integer; result: OUT Integer) 
uit IN Integer); 


Set DMA 
Delete file (address: IN 
result: OUT 


Select disk (disk: IN Integer 


Reset disk; 


Integer; 
lcm 


e 
y 


Keyin (inchar : OUT byte); 
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OUT Integer 


| 
4 


PrO SEDURRE 
PROCEDURE 
FROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 
PROCEDURE 


PROCEDURE 


PROCEDURE 
PROCEDURE 
FROCEDUR E 
PROCEDURE 
PROCEDURE 
PROCEDURE 
END Myasmlibd;s 


Outconsole (outchar : IN byte); 

Send block (address: IN Integer; size: IN Integer); 

Yess 

NO} 

Recv block (address: IN Integer; len: OUT Integer); 

Endfile (finish: CUT Boolean); 

Active; 

Waiting (stat: CUT tyte); 

Setup (addr: IN Integer; rdy: OUT Roclean); 

My put (inval: IN Integer); 

Pue (str: IN STRING); 

Endmsg> 

Search_first (address: IN Integer; buff: IN Integer; 
result: oJI Integer; addr: OUT Integer:; 

Search next (address: IN Integer: buff: IN Integer; 
result: OUT Integer; addr: OUT Integer); 

End block; 

Send string (str: IN STRING); 

Send dir (dired: IN Integer; size: IN Integer); 

Driveout (driv: IN tyte); 

Drivein (driv: OUT byte); 

Of ix 


PACKAGE ASSEMBLY Myasmlib 


jmp main 


PROC Create file; 


--* AUTHOR: THOMAS V. WORKS 


--* DATE: JUNE 1986 
-—* DESCRIPTION: CREATE FILE CREATES A FILE SPECIFIED BY *-- 
--* THE FCB USING CP/M-86 FUNCTION 422. We 
cr code equ 16h 

pop ax ¡return address 

pop si code address 

pop dx ;FCB address 

push dx restore stack 

push si 

push ax 

PONCE O Code 

int 224 

rov [si], al 

ret 


Ee PROG Create file; 


125 


FROC Close file; 


-—* AUTHOR: THOMAS V. WORKS 

e LIII S 

=-%* DESCRIPTION: CLOSE FILE CLOSES A FILE SPECIFIED RY 
--* THE FCB USING CP/M-2E FUNCTION #16. 


cf code equ 12h 


pop ax ¡return address 
pop si ¡code address 
pop dx ;FCB address 
push dx ;restore stack 
push si 

push ax 

mov cli, cf code 

int 224 

mov [si], al 

ret 


END PROC Close file; 


PROC Open file; 


--* AUTHOR: THOMAS Voewer Ks 

—--* DEENEN 

--* DESCRIPTION: OPEN FILE OPENS A FILE SPECIFIED BY THE 
-—* FCB USING CP/M—CC ith Glue he er 


of COSE equ Ofh 


pop ax ¡return address 
pop si code address 
pop dx ¡FCB address | 
push dx ;restore stack | 
push si 

push ax 

MONO Odes 

int 224 

mov [si], al 

ret 





END PROC Open file; 


PROC Read seq; 


-—* AUTHOR: TEOMAS V. WORKS 
--* DATE: JUNE 1986 


--* DESCRIPTION: READ SEO READS SEQUENTIAL 128 BYTE * 
--* RECORDS FROM THE FILE SPECIFIED BY THE FCB USING We 
EE EE Kr — 


194 


Romedde equ 14h 


pop ax ¡return address 
pop si ¿code address 

D Oden ¡FCB address 
push dx srestore stack 
push si 

push ax 

mov cl, £5 code 

int 224 

mov [sil, ax 

ret 


END PROC Read seq: 


PROC Write seq; 


--* AUTHOR: THOMAS V. WORKS 
--* DATE: JUNE 1986 


-2* DESCRIPTION: WRITE SEQ WRITES SEQUENTIAL 128 BYTE dec 
EU PUODDSC TO TlH heim SPECIFIED BY THE FCB USING CP/M-86 *-- 
= FUNCTION #21. lc 
wS code egu 15h 

pop ex ¡return address 

pop si ¿code eddress 

pop dx :FCB address 

push dx ¡"NES VOre IStackK 

push si 

push ax 

mov cl; wS code 

int 224 

mov [si], ax 

ret 


MV PROC Write seq; 


PROC Set DMA; 


--* AUTHOR: THOMAS V. WORKS 


-—* DATE: JUNE 1986 
EE EE C SERT DMA SETS TAREA TO THE SPECIFIED DUE 


--* ADDRESS USING CP/M-86 FUNCTION #26. X -- 
sdm code equ lah 
pop ex sTeturn address 
pop dx ¡DMA address 
push ax ¡restore stack 


mov ci Samucome 
int -24 
BET 


END PROC Set DMA; 


an emt am a vm emm emm emm emm A emm emm om e m GU GR c Ow ARD > A A emm m emm em we em a emm Gum ere emm D G ee es iar es ee iar emm mm om emm emm emm emm emm ep gue eme wm em om EA Am 


PROC Delete file; 


--* AUTHOR: THOMAS V. WORKS 
--* DATE: JUNE 1986 
--* DFSCRIPTION: DELETE FILE DELETES THE FILE SPECIFIED *- 


--* PY THE FCE USING CP/M-86 FUNGI Cha Ke 
S Rel egau i g 
pop ax ¡return address 
pop si code address 
pop dx ;FCB address 
push dx ¡restore stack 
push si 
push ax 
MO OCIO 
int 224 
mov [si], al 
ret 





END PROG ene tem ra le, 


- eue GENRD A qus GENE EK AK GENE OM emm gp > CE ee qub P E PP, CHE Gu 96 gemet dp awe 22 eae mp an a een atta a=  quED a= = a= A mm È gah mp emp è qub mr em emm gp emm em a= ab oe ae mmm vn gg: 


PROC Select disk} 


--* AUTHOR: THOMAS V. WORKS 
--* DATE: JULY 1986 
--* DESCRIPTION: SELECT DISK DESIGNATES THE DEFAULT DISK *- 


--* DRIVE FOR SUBSEQUENT FILE OPERATIONS USING CP/M-86 * 

--* FUNCTION #14. * 2 

SONIS equ eh 
pop ax ¡return address | 
Pop dx ¡disk drive value | 
push ax restore stack 
mov Clas sd code 
int 224 | 
ret | 


END PROC Select disk; 


a A emm vie op A emp emp A A A A mp A A A a a ae aw GERD A mm a ese c= ah ae a uem um au qué de ae A A ee a a= A A A A a= A a= A G2 uu O A A A mp ms om a em SG mm Q 


PROC Reset disk: 
--* AUTHOR: THOMAS V. WORKS 


--* DATF: JULY 1986 
--* DESCRIPTION: RESET DISK RESETS ALL DISK DRIVES TO 7 
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een aM LEAN TC IRE A DISK@AS THE DEFAULT DISK FOR *-- 
--* ALL SUBSEQUENT FILE OPERATIONS USING CP/M-S6 FUNCTION *-- 
-—* #13. yo 
pú NOA e equ dh 
mov Cue Code 
inir a 
ret 
END PRCC Reset disk; 
PROC Xeyins 
=—* AUTHOR: THOMAS V. WORKS 
=- DATE: APRIL T985 
= DESCRIPTICN: KEYIN CBTAINS INPUT FROM THE KEYBOARD i 
SUS INGA? /Y=86€ FUNCTION #06, de 
Status code equ @ffh 
Sinio code equ 26h 
COoBout code equ 92h 
POP ax return address 
pop di soutput address 
push di restore stack 
push ax 
nokey: Move Cl, Gino code 
mov dl, status code 
ict 224 
cmp al, € sif zero, no input from keyboard 
jz noke 
mov (aan al ¡store velue from keyboard 
ret 
END PROC Keyin: 
PROC Outconsole; 
—— IDBNORSSRBHOMAS. V. WORKS 
=~ sone: APRIL 1985 
SE | TON: CULCONSCLE DISPLAYS OUTPUT TO THE pm 
--* CONSOLE TEVICE USING CP/NF-86 FUNCTION #82. m 
pop bx sreturn address 
pop ax ¡value to be output to console 
push bx restore stack 


mov cl, conout_code 
mov dled! 

int 224 

ret 


END PROC Outconsole; 
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PROC Sendmetlock; 


== RUT HORE 


THOMAS V. WORKS 


==" DATE ACUS TME 


=- DEC RERUN 


==" TNT? TED TAS 


evr 
comet 
recv rady 


equ @3h 
equ OkCh 
equ 22h 


error code equ £FFh 
block code equ £FFh 


Status Gott equ ZEDh 


Looper: 


loopa: 


errorl: 


loopd: 


pop ax 
pop CX 
O lu 
push ex 


mov ch, 4 
TONO port 
mov el, [si] 
out dx, al 
KEE 

in al;«de 

and al, recv rdy 
jz loopa 

dec dx 

in el, dx 

cmp al, [si] 
jn2. errori 

inc sl 

dec tx 

jnz loopb 

jmp over 


moved error code 


outs x al 

inc dx 

in al, dx 

àrd al, recv.-rdy 
Zoe a 

dec dx 

in aum dx 


CMpral, Crhonsc ede 
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SEND BLOCK THANSMEBNS A BICCK OF DADS K 
--* SEQUENTTALLY ONE BYTE AT A TIPPE EEE ETH : 
-—* EACH BYTE SENT IS ERROR CHEECH Hers A E 
-= ADDRFSS AND THE LENGTH OF 
--* TRANSMITTED ARE INPUT PARAMETERS. 
== ROCK ECO DEE 


THE ae LOCK sO Ee %*— Å 


(OFFh) INDICATING END OF BLOCK ARE SENT 





THE =) 
A SEQUENCE OF FOUR Sal 


sreturn address 

¡length of data structure 
data structure address 
¡restore stack 


s block code counter 
¡send out char 


»>Statport 
¡wait for echo 


‚dataport 
get echo 
¡Check for error 


get new char 
»decrement length 
sdo again until length = 2 


stell receiver error in 
stransmission 


»Statport 
¡wait for echo 


sdataport | 


Check to see if error code wa' 
sreceived | 


errora: 


loordz: 


Over. 


Loop C: 


errers: 


END PROC 


mz errori 

mov a Serror ecde 
Out dx, al 

Inc dx 

m al sar 

and diy recv rdy 
3z lo0pd2 

dec dx 

meal dI 


STET error Code 
z Errore 
IED lopo 


mov al, blccx_cođe 
out Cl, al 

12C dX 

osal Tdr 

Are cv Edy 
EZ OD 

dec dx 

ip als dr 

cmp»el 5; ploeweccde 
eE 

dec ch 

jaz over 

bey 


moy ca OCC cade 
out dz, al 

inc idr 

jmp loope 


Send block; 


A NOt, retransmit error code 
send second error code 


»Statport 
¡wait for echo 


»dataport 
Check to see if error code wes 
received 


Aa retransmit error code 
;retransmit cher 


tell receiver end of block 


»statport 
wait for echo 


:detaport 
»get echo 
»check for error 


¡send out next block code 
suntil four ere sent out 
done 


;retransmit 
sstatport 
»check again 


PROC Yes; 


--* AUTHOR: TEOMAS V. WORKS 


--* DATE: 
-—* DESCRIPTION: 


AUGUST 1986 


YES TRANSMITS A SEQUENCE OF FOUR YES kam 


--* CODES (@Fih) INDICATING END OF PROCESS. po 


MESme ode 


mores: 


equ ørn 


pop ax 
push ax 


mov ch, 4 

now dl e 
mov el, yes coce 
out Ox. qx 

CIA 
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wes COJE counter 
s Send out yes code 


Stal Ort 


loo pee in xd ¡wait for echo 


jz COD 
dec cx ‚dataport 
jn pe Cx ¡get echo 
cmp al, yes code MEN CAOS error 
n2 error4 sif error, retransmit 
dec ch ‚do again until counter = Ø 
jn 2 mpm 2 
ret 
error: mov al, yes code ‚retransmit 
out dx, al 
incuds ;»Statport 
jmp loope2 


END PPOC Yes; 


PROC No; 


--* AUTHOR: THOMAS V. WORKS 
DATE: AUGUST 1986 
--* DFSCRIFTION: NO TRANSMITS A SINGLE NO CODE (EEH) 


ale 
emm am f> 


` 
-—— e 94^ 


and EE C aude, 


Ma A emm mm ve ae cm ame es] emm emm ae A E ae Ge Oe a eee Gum cee emp eet ae ae a E ea emp EE E AO e» A A a A A AAA om mmm op eg om op emm A A emm coe oe ce cee ew emp emp o: 


INDICATING FROCESS CONTINUING. 





no code equ SEh 
pop ax 
push ax 
IER sO port ‚send out no code 
mores: Innova noc Code 
out Y 
ined sStatport 
looms: in al, dx ¡wait for echo 
SIDON ON SECUNDUM 
Diz NECS 
dec dx ;dateport 
in al, dx sget echo 
cmp el, no code icheck for error 
jnz mores wif error, doOmagain 
ret 
FND PROC No; 


PROC Recv block; 


AUTEOR: THOMAS V. WORKS 

DATE: AUGUST 1986 

DESCRIPTION: DECH BLOCK RECEIVES A BLOCK OF DATA, &-- 
SFQUENTIALLY ONE BYTE AT A TIME VIA TEE MODEM PORT. im 
THF ADDRESS TO STORE TEE RECEIVED TEE DATA IS AN INPUT *-- 
PARAMETER AND TEF AMOUNT OF DATA RECEIVED IS AN OUTPUT *-- 
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Serna Gl oR. 


DER BLOCK: 


loopé: 


mopyet.: 


ErTOr5: 


boop 5's 


pop ex 
pop si 
pop di 
push di 
Busi sa 
push ax 


POW ctr 

mov ch, 4 

mov cl Y 

Neve status pcr t 
Iir ealn eax 

end al, recv rdy 
jz loop4 

dec dx 

et eae eX 

l ral 

mov [di], al 
EIERE code 
JZ errors 

inec di 


ne el 
cempor alaa tl ock code 
jnz notyet 


mov 
Inca 
jrp loop4 


indi 

in al, dx 

and al, recv_rdy 

jz loops 

dec dx 

in al, dx 

out dx, al 

emp al Erron code 
jz eloop 

mov [di ero? code 


me ci 
mov ldil, al 
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NECNRELOCE WATTS UNTIL IT RECEIVES A EE 
--* SEQUENCE OF FOUR 3LOCK COLES 


(2PPH) INDICATING END CF *-- 


sreturn eddress 
¡length address 
sdata Structure address 


srestore stack 


; timeout counter 
EE counter 
s length counter 


scheck for incoming char 


sdataport 

¡get char 

secho char 

¡store char 

scheck for error code 
;if no error, increment 
Location 

sincrement length 
check for end of tlock 


¡begin counting block codes 
;jump when number of tlock 
¡codes = 4 

s Statport 

Arno t check for nert 
sfinish code 

sreload finish code counter 
:Statport 

get next char 


;Statport 
scheck for second error code 


sdetaport 

¡get input char 

echo input char 

mis tals a true error 

sif yes, jump to error handler 
sif not, treat it like a real 
schar and store 

next location 

Store the cher mistaken es 


Gl oops: 
Te: 


fini. 


count k: 


mme 


inc di 


inc dI 
jmp loorp4 


inc dr 

in al cAr 
Aire rady 
TIE 
SIE 
irral Adr 
üt dr ral 
dec di 

mov gll 
ine di 

inc dr 

jmp loop4 


inc dX 
dec tl 


goose 


Lal dar 

Ae CV Tay 
JoONCOUnTti 

dec dx 

IE dr 

out dx, al 
OmpucN block code 
Jz none 

MOV Ctr 

jmp fini 

sut cl, 4 


mov ch, 2 
DON | Siew cx 
ret 


ND PROC Recv block; 


= oe Oe cme cUm (uum eee SE ee gr dë mm om O a A Em CURED a GEL GE Em GE cam GÁR mm Cue GERD GR Em GE ee ae mm e ën mm A A mm 2 abe ee Se ae CURE Gm zeg em GR Gus SP ND Ge GRE mm om mm mm" 


FROG Pena tthe. 


--* AUTHOR: THOMAS V. WORKS 


‘second error code 

¿next location - now we're 
stack to normal 

¡Statport 

¡get next char 


»Statport 1 
scheck for retransmitted char 


‚dataport 

‚get retransmitted char 
,echo retransmitted char 
Overwrite error 


¡next location 
:Statport 
‚get next char 


sStatport 

stimeout to ensure echo was 
»received 

¡finish if counter = € andina 
¿Char received 

¡wait for input 


‚dataport 

‚get input 

"eio mmt 

sone last check 

sif finish code „continue 
sif not, do again 


sremove four block codes from 
;length 

»zero ch 

»Store length for return 
finished 





——* DATE AUG Use 86 


-X 
-——— E 
--¥ 


DESCRIPTION: ENDFILE WAITS TO RECEIVE EITHER A SINGLE *-- 
NO CODE (€Eh) INDICATING FILE NOT FINISHED, OR A io 
SEQUENCE OF FOUR YES CODES (0F1h) INDICATING FILE ce 
FINISHED. de 


MU? 


file end 
no end 


ore >< 
loop8: 


donel: 
moreé: 
court: 


donez: 


eal: 


rU: 


equ Fih 
equ CFA 


pop èx 

pop di 

push di 

push ax 

mov ch, 4 
never ctr 
nmnovdd o Status port 
ined cx 

and al, recv rdy 
qom ope 

dec dx 

Qm es y 

out dr aT 
COPA end 
jz denel 

cmp al, file end 
Hinze mores 


dec ch 


TRD DE 
mov cl, al 
inc dx 
dec tl 


jz done2 


in al, dx 

ond ade recy N 
BEER 

dec dX 

imas acl 

out dx, al 

cmp al, -file end 
Fz tru 

cmp al, norend 
12 fal 

Movee etr 

jmp mores 

mov al, cl 

en ut eure end 
Eom 


cmp al mno end 
jz fal 

mov [di], og 
ret 

mov [di], @1 
ret 
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sreturn address 
saddress of output variable 
;restore stack 


file end courter 
;timeout counter 
‘Check for input 


‚dataport 
¡Sel Input 
secho input 
‚decode input 


sif neither, go back for 
Teeureansm) tlea input 

¡if file end, begin counting 
AA 


received 

¡store input temporarily 
sstatport 

stimeout to ensure echo was 
received 


finish if Counter = A and no 
char received 


¡wait for input 


sdataport 

get input 

ECHO ID put 

sone last decode and checx 


sif neither, do again 


;reloed for decode 
sdecode input 


sfalse 


;true 


END PROC Endfiles 


PROC Active; 


-=F AUTRO n EROMAS V. WORKS 

-> DANNE: ES HETE BERT TOGE 

-~* DESCRIPTION: ACTIVE TRANSMITS TRE ACTIVE CODE (2DOn) + 
--* TO THE CONCENTRATOR INDICATING AN ACTIVE STATUS AND KR ` 
==" WATTS FORMAT REPLIE . 


as 
?€ 


ready T erde equ €D2Zh 
pop ax sreturn address 
push ax sTestore stack 
Fly: mov akin pont sdataport 
MOTOS dico de 
OUT waar, al send out ready code 
inc dr ¡statport 
Bong: in al, ar ¡wait for echo 
EE NEE 
jz loops 
dec dx ¡deteport 
in al, dx sget echo 
cmp el, reedy_code sCheck for error 
J eee dy) sif not ready code, start 
,again 
ret ‚if ready code, finish 





FND PROC Active; 


— OED OD Oe Gee A O eo cep ow 6 A A emm Ee Sa A A A A A A A A A num ED = A TO TD A a= a= - dy A gëff emm gëff gëf emm AP A A eme, emm O A A oe oe emm. emm vm er, ee omg oe 


PROC Waiting; 


-———— € 


` 
emm emm d' 


--* DESCRIPTION: WAITING AWAITS THE RESULT OF CHECK QUEUE *-@ 
--* THERF ARE FOUR POSSIBLE REPLYS: NOTHING (8), FILE A. 
~-* WAITING (6), MESSAGE WAITING (@Dh), OR RESEND (1). THE *-= 
--* REPLY IS AN OUTPUT PARAMETER e 

pop ex ;return address 

pop di sStatus address 

push di restore stack 

push ax 

mov dl, status port 
loopig: 0 ¡wait for input 

and él), precy sr dy, 

jz 100pi0 

dec dx sdataport 

in àl, ax ‚get E 


< DATE: 


AUTHOR: THOMAS V. WORKS 
SEPTEMBER 1986 


out dx l 


secho input 


more’: 


count sd 


Tiri 


ine “ax 
mov 
dee tl 

jz finum 


in al, dx 
dE recy ord y 
IMC t. 

dC 

in al dr 

out dx, al 

mov [di], al 

jmp more” 

FET 


END FROC Waiting; 


EAS e Up. 


Z AUTHOR: 
DATE: 
==" DESCRIPTION: 
==" CONNECTION RECORD, 


ao TEE REPLY elo. A 


Start: 


herel: 


SEPT TENBER 1986 


pop ax 
DO wade) 
pop si 
pus a di 
push ex 


TET 
E 
lori 
mov al, [si] 
ER IE al 

Liner x 

T a: EAr 

andes recy rcy 
Er ET 

dec dx 

in al, dx 

emp al PST) 
unc fault 

inc si 

dee Cl 

Jnz start 

mp finis 


mov 
mov 
mov 


TEOMAS V. WORKS 


SETUP TRANSMITS TO THE CONCENTRATOR TEE 
SFQUENTIALLY ONE BYTE AT A TIME. 

THEN IT WAITS FOR A REPLY; XFER (1), OR NO_XFER (8). *-- 
BOOLEAN OUTPUT PARAMETER 


xx 


Orem naput 
~stevport, Walt for confirmation 
load timer 


sif no input and timer = 42, 
then first input ok 
¡wait for confirmation 


:00ps there was an error 
¡get retransmitted input 
secho retransmitted input 
Orere transmitted input 
‚20 Cack for Confirmation 
done 
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SE aes 
«t 
L 


;return address 
;Sendrdy address 

sdata structure address 
:restore stack 


;timeout counter 
;length counter 
;detarort 

¡send destinatior out 


¡statport 
swait for echo 


:dataport 
¿get echo 
sCheck for error 


sgo to next locetion 
¿count length 

¿jump until length = 2 
;done 


fan i: 


herez: 


Vin1s: 


neress 


lupe: 


set: 
KOU Gs 


mov al, error code 
out, al 

Brod 

in alar 
EE 
jz herez 

dec adr 

19 al, dr 

cmpral NETT ror Code 


jnz feult 
jmp start 


Overclock Code 
out dx, al 

inca 

joa m 

andi elm recvinriy 
onere. 

dec dx 

ing ar 

Cmo al, Dl ockwc ode 


jnz finis 


inc dx 
H T 
and al, recv_rdy 
jz lupe 

eee wan 
"nod X 
out dx, al 
mov [4i], al 
cmp el, 3 

jz set 

cmp al, 1 

jz set 

mov [di], Ø 


need x 

dec tl 

jz allset 

in al, dx 
anar Ie cy rdy 
jz Kount 
decra 

ino b. x 
Ol Ud x ead 
mov [di], al 
emp 215 

jz set 
ERC l 


EE 


;send out error code 


;Statport 
swalt for ecko 





»dateport i 
eet ecko | 
¡check to see if error code wa: 
received 

if Mot Tretrensmat 
;retransmit date 


Send out block code 


:»Statport 
¿wait for echo 


‚dataport 
¡get echo | 
check to see if block code val 
received i 
:1f not, retransmit 


:Statport 
¡wait for sendrdy result 


»dataport | 
o2et result | 
secho result 

¿store result 

¿Check for invalid result 


sif invalid, set sendrd vy 
false 

:Statport 

timeout to ensure echo Tece SEE 


»dataport 

get input 

¿echo input 

¡store input 

¿Check for invalid result 


J2 ser 


mov [di], o sif invalid, set sendrdy to 
false 

Ov Tr ‚timeout again 

jmp kount 


allset: ret 


END PROC Setup; 


PROC My puts 


= RUPE ORs TECMAS Vie WORKS 
A DATE: JUIY 1986 

T T N E Y EUT CONVERTS tak INTECES INPUT == 
AOS IAS IT EQUIVADENT AND DISPLAYS IT. CES 


Otero cepi S lal 
pop bx ;return address 
pop dx sinput value 
PUSO ¡restore stack 
MON CIO no Ode 
SOO Se. SeOnver tto ascii tor output 
int 224 
ret 


END PROC My rut; 


E» > a a a A A a A A A A O A MU née ne né SD aw ew a CURED p d A A a GAB mm: vr gr mm an dis vm RE A emm mp: P GERD emm: mp em mm: gr em: em: om mp em: dp Se emm mm emm mm emm E emm 


PROC PuUSstr, 


--* AUTHOR: THOMAS V. WORKS 

--* DATE: JULY 1986 

--* DESCRIPTION: PUT STR DISPLAYS THE STRING INPUT. THE  *-- 
-% LENGTH OF THE STRING IS TEE FIRST BYTE OF THE STRING. *-- 


pop ex return address 

pop si ¿string address 

push ax srestore stack 

moval e] sfirst value is string length 

mov di, 9200 ¡set di to zero 

mov ah, ££ ¡set ah to zero 

mov di, ax ¡move string length to di 
more8: mov cl, conout code 

Bele et :get next char 

mov dl, [si] 

int 224 ‘output to console 

dec di sdecrerent string length 


cmp di, 90€ 

jnz moree ¿finish when string length is 
Alo, 

ret 


END PROC Put str; 


cmp dip ip ip ae eee Ge ae am mm am ame Ge am Oe a gëff gëff ffr 2 A vm ee ee ee eee es ee e de a a vg: vg: vm ae a A A a A A A A a A a a A A oe gëf em ee es ae p 


PROC Endmse; 


--* AUTHCR: THOMAS V. WORKS 
--* DATE: JULY 1986 
--* DESCRIPTION: ENDMSG TRANSMITS A SEQUENCE OF FOUR END ¥*-- 


--* OF MESSAGE CCDES (2Fih) INDICATING END OF MESSAGE. * 
rsg_ end equ gFih 
pop ax :Teturn address 
push ax srestore stack 
mov ch, 4 sload message end counter 
iuge I Ctr ;load timer 
Denes. mov àl, status_port 
loopll: wu dx ¡wait for messege end code 
and al C 
ZO Ore 
deer ;dataport 
inneal, dX ;get message end code 
out dx, al ;echo input 
cmp al, mse end Check SE OT Error 
jnz more9 sif error, get next input 
dec ch scount message end codes 
jn2z more9 ;until counter - @ 
morel@: inc dx :Statport 
count4: dec tl s timeout to ensure echo receive 
jz doned 
in al x 
andes. recverndy 
jz count4 
dec dx sdataport 
a ee. oat ¡get input 
out dx, al ;echo input 
cmp al mese end ¡one last check 
jz doned 
mov DIRETT sif not message end code, tire 
s Out again 
Jmp moreiée 
dones: ret 


END PROC Encmse; 
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Pegeecearch first, 


` 
— am “4° 


-—— € 


Å E 


aU ROR sw tHOMAS V. WORKS 


hn 


Pee, EEN LOSE 

Le PEON IS TARCO FIRST SEARCHES FOR THE FIRST ca 
I AGO MATCH, READS 128 PY PE RECORD æ 
CONTAINING MATCHED ENTRY INTO DMA, AND COMPUTES OFFSET *-- 
ee eee NS ce EYTE RECORD USING CF/M-86 FUNCTION *-- 


GE E 
Ef weode equ 11h 
eles cy equ Offn 
pop ax ¡return address 
BOE Si ;dir addr address 
pop di ¡code address 
PORT Dx stuffer address 
EE sfcb1l address 
push dx ‚restore stack 
push tx 
pü simai 
push si 
push ax 
moyasi], tr ¡save buffer address 
ME St code 
ln toe CET Defor first directory 
match 
mover, (Si | restore buffer address 
Tov [di], ax ;store results of search ir 
code 


Spear, crmish dir selre we at the end of the 
sd rectory 


jz done4 sif yes, done 

mov cl, 32 ¡directory match offset = 

puel stuffer address + (32 * search 
result) 


add bx, ax 
mov [si], bx ¡store directory match offset 
sam diritaddr 


done4: ret 


END 


-o emp = = 


EROGe SCarca first ; 


PROC Search next; 


e 
==. 


—- £ 


AUTHOR: THOMAS V. WORKS 

DATE: SEPTEMRER 1988 

DESCRIPTION: SEARCH NEXT SEARCHES FOR THE NEXT v 
INSTANCE OF DIRECTORY MATCH, READS 128 BYTE RECORD li 
CONTAINING MATCHED ENTRY INTO DMA, AND COMPUTES OFFSET *-- 


M 


==" TO ENTRY WITHIN 128 RYTE RECORD USING CP/M-£6 FUNCTION *— 
--* 18, UNTIL END OF DIRECTORY IS REACHED (@FFh). ð 





Sn coce equ 12k 

por ax ¡return address 

Pop si ‚dir_addr address 

Popii ¡code address 

por bx ¡buffer address 

po peer »fcbl address 

push dx srestore stack 

puis ttm 

push di 

push si 

push ax 

mov [si], tx ¡save tuffer address 

I oll Coe 

int 224 ¡search for first directory 
match 

mov bx, [si] ¡restore buffer address 

mov [di], ax ¡store results of search 
| BENIGNO 


cmp al cH dir sare we at the end of the 
(direc tery 


jz dorned sif yes, done 

mov c32 ;directory metch offset = 

IICA ¡buffer address + (32 * search 
result) 


add tx, ax 
mov Ex ¿store directory match offset 
sind Ursðaddr 
done5: ret 


END PROC Searcimnert; 


PROC End block! 


--* AUTHOR: THOMAS V. WORKS 
--* DATE: STETEMBFR 1986 
--* DESCRIPTION: END BLOCK TRANSMITS A SEQUENCE OF FOUR *-- 


--* END OF BLOCK CODES (@FFh) INDICATING END OF BLOCK. "Zä 
pop ex; sreturn address 
push ax ¡restore stack 
mov ch, 4 syes code counter 
mov dl, 10 port ¡send out yes code 


rorel2: mov al, block code 

out de ax 

ine det :Statport 
lcopl2: ino mdr ¡wait for echo 


12€ 


and 
jz 

dec 
jus 

STU 
m 
jec 
nz 
ret 


mov 
Out 
NTC 
Jmp 


errore: 


ERO PE haa 


cU recy srdy 
oop 2 

ax 

SR 

aðr Lock code 
errore 

ch 

mcrel2 


OO code 
dr al 

dx 

Foecpilc 


_tlock; 


»dataport 

get echo 

heck for error 

iiL error, retransmit 

¿do again until counter = Ø 


sretransmit 


¡statport 


PROC Send_st 


--* AUTROR: 
= DATE: 


Poth lee 


pop 
por 


TEIMAS V. 
EEN 


ring; 


WORKS 
198€ 
ION: 


ax 
sul 


pusn ex 


mov 
mov 


mov 
mov 
mov 
ince 


mov 
out 
196 
loople: in 

and 
jz 

dec 


Loop ls 


[si] 
2002 


al, 
depo. 


eh, 99 

du mat 

ie, o DIOE 
si 


SUE Si] 

dx, al 

dx 

Qu NC 
alsNrecv rdy 
loopla 

dx 


in al, “ax 


cmp 
I 
inc 
dec 
jnz 
JTP 


ame rell 
error? 
si 

di 
Doom 
done6 


iei 


DIRE MMC 


SCRNPEMSDURDNSGOUDRANSMITS A STRING INPUT, Van 
SEQUENTIALLY ONE BYTE AT A TIME. 
I be ene INPUT PARAMETERS. 

Peet ool ek <OF 


THE ADDRESS OF THE 
THE LENGTH IS TEE Kum 


sreturn address 
sString address 
;restore stack 


HS. Chasis string length 
¿set up and store string lenetr 
nda 


sincrement to first char 
send cut char 


SSTAtporti 
swait for echo 


sdataport 


get echo 
Check for error 


sget new char 
¿decrement length 
¿do again until length = 2 


error?: 


loor: 


EeError&g&: > 


CODES 


donee: 


END PROC 


mov al Error ede 


out dr, al 
Incoe 

jn o MEE 
duda recVY Tray 
I oon ra 

dec dx 

in al., uat 


cmp al FEC ronse ode 
NZD 

mov a error ole 
out dry al 

inc dr 

11831 

and al, recvama,y 
Zoro pec 

dec cx 

in al, dx 


E DEE 
jnz errors 

a 

Eee 


Seras Pines 


PROC Send dir; 


-—* AUTHOR: THOMAS V. WORKS 


--* DATE: 


==* DES CRIAS 


——* ADDRESS OF THE ENTRY ISTHE OTHER INPUT PARAMETER: ` Æ 2 
por ax sreturn address 
PODALI ¿data structure length 
pop si ¡data structure address 
push ax 


OO peo 


loop2a: 


SEPTFMBER 1986 


MONO ODO TL 
MOE 
OU al 
incrdy 

inmal. dx 

amc were cv Tay 
jz loop2a 

dec dx 

in al; dm 

cmp al, [si] 
jnz error9 
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stell receiver error in 
:trarsmission 


(Sta boon. 
»wait for echo 


»dataport 


check to see if error code wa 
received 


LI not, retransmit error code: 
¡send second error code 


s:Statport 
¡wait for echo 


‚dataport 





;check to see if error code GER 


;received 


;if not, retransmit error code 
:retransmit char 


done 


sdataport 
Send out char 


»Statport 
swait for echo 


‚dataport 
seet echo 
¡check for error 


| 
| 


SEND DIR TRANSMITS A DIRECTORY ENTRY CF *-- 
--* PREDEFINED LENGTH TBY CONSTANT INPUT PARAMETER). THE 


error9: 


Eege 


errorla: 


MOO pec: 


done”: 


nc sd 

dec “he 
noQ cL 
jmp done" 


MOvedhww error code 


Sue dx ca 

Dno cd 

Duns be dx 

and al, recv rdy 
USE ord 

dec dx 

H dx 


STIT 
STT 

mov al errorcode 
outer al 

Ir cek 

iene aa < 

E y 
HES 

decsdr 

itoa ITA 


emea L Rer rror code 
jnz errori£ 
ümpolocp2b 

BET 


ENDERROC Send dir; 
pPHOPS»riveout: 


=-* AUTEOR: 
== DATE: 
--* DESCRIPTION: 


TFOMAS V. WORKS 
SEPTEMBER 1926 


sget new char 
sdecrerent length 
sdo again until length = 2 


stell receiver error in 
stransmissior 


:Statport 
¡w2it for echo 


sdataport 
¿check to see if error ccle was 
received 


"au cc retransmit error code 
¡send second error zode 


“Stal port 
¿wait for echo 


‚dataport 
¡Check to see if error code wes 
;received 


zc retransmit error coce 
sretrensmit char 
;done 


DRIVEOUT TRANSMITS TEE BYTE EQUIVALENT *-- 


E Vr TE TRANSMITTED DIRECTORY. pc 


quw t 


COSTS: 


pop ax 
PODA 
push ax 


MON 1ogport 
mov al, tl 

out dx, 2l 

T dY 

ip al Aar 

and el, rerv_rdy 
DON CDD 

dec dx 

ir al, ax 
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;return address 
¡drive value 
restore stack 


:»dateport 
¿send out drive 


»statport 
¡wait for echo 


sdateport 
¡get echo 


Cpe ET „check Or error 
Joz dout sif error, Start arain 
ret A CA nish 


END PROC Driveout; 


mme cd es ee eme eme ee ee ee ee oe ee ee ee ee ee ee es es fi es ee es ee es ss es es ses oe ef vm vm vm, emm ef om me i < 


PROC Drivein; 


--* AUTHOR: THOMAS V. WORKS 

--* DATE: SEFTEMBER 1925 

=-% DESCRIPTION: DRIVEIN 2ECFIVES THE BYTE EQUIVALENT OF *-- 
--* THE DRIVE OF THE TRANSMITTED DIRECTORY. eae 





pop ax ;return address 
pop di saddress for drive 
push di wees One. 6 back 
push ex 
MO Vee ec tr »timeout counter 
mov dl, status port 
lcopl5: Ea ex ¡weit for incoming go code 
ànd al,irecv Tiy 
7800 19 
deer ;dataport 
Wa. oder ;gev rnput 
Gut dx, al ;echo input 
mov [di], el ¡store input 
DEE nc d ;»Statport 
count MENO timeout to ensure echo was 
received 
jz donee sfinish if counter = 2 ana 
¿no char received | 
INE EO »walt ` torðinput | 
and lv 
zc out: 
dec dz ;»dateport 
ing dlc dur get input 
aue dria ;echo input 
cmp al, [4i] ¡One last check 
jz doneg sif IOl eerror ,finisb 
Mövla Otr sif ecror, d0 agaín 
jmp morele 
doneg: ret 


END PROC Drivein; 


Wo A A a ae ates TD ee ae ee A O A ea ae ake A A A gg om Ma emm es ie om ëm em, ge A a a es os es as a a a ae ee i eee A vm mmm vm ve ee > 


PROC Off; 
--* AUTHOR: THOMAS Y. WORKS 


--* DATE: SEPTEMBER 1986 , 
--* DESCRIPTION: OFF TRANSMITS THE OFF CODE (Fh) PE 
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ale 
— ame P9 


Poe cm OF PESO CNGHNIRATOR GA TERMINAL IS SO LONGER *-- 


--* ACTIVE. B 
off code equ £Fh 
pop ex SDebupuEgddress 
push ex restore stack 
[INE as »sSenc out off code 
mov al, off code 
owtoex. al 
nec 
EN PROG 10: 
main: 
UND Myasmlit; 
WITH Xferfile, Messeges, Myasmlib, Directry, 
who, Myutil, Pulltrd, Names; 


PACKAGE EODY Xferrain IS 


USR Xferfile, Messeges, Myasmlit, 
deet Pullterd. Names: 

wwe HE AE HE ak ote e als ok oie oe ok ok C 

-—* MAIN PROGRAM *-- 

— ma E RF OK OK IS AS EAS SE de de de e ds a = 

Status: tyte; 

ctrl f: CONSTANT BYTE :- tyte (1645064); 

ctrl m: CONSTANT BYTE :- tyte (1640D&); 

ctrl d: CONSTANT BYTE :- tbyte (168248); 

resend: CONSTANT BYTE :- tyte (168014); 

ctrl l: CONSTANT BYTE :- byte (1680C8); 

cme CONSTANT BYTE c= Eyte (165125); 

ELS: CONSTANT BYTE <= tyte (164124); 

ctrl t: CONSTANT BYTE := tyte (16#14#); 

ctrl x: CONSTANT BYTE :- tyte (1658184); 

ctrl w: CONSTANT PYTE := tyte (164178); 

ctrl g: CONSTANT BYTE := byte (1E#07#); 

ctrl p: CONSTANT BYTE := tyte (1645104); 

Ctrl t: CONSTANT BYTE :- byte (1€#02#); 

B*GIN 


Clearscrns 


Put 


("Welcome to the NPS 


Fut ("Local Area Network!" 
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Computer Science Latratory 


5 


Directry, 


New lines New line: 


Put (" 
LOOP 
Put 


ae 
— aw 7,9 


Active; | 
Put ('CEFCKING FOR INCOMING FILE OR MESSAGE." ); New lim 


Wai 


New line: 
CASE status IS 


END 
New 


—— E 


Put 
Put 
Put 
Fut 
Put 
Fut 
Fut 
Fut 


Execution Begins. Version 1.2"); New line; 
("WAITING TO FE POLLFD... ); New_line; 


SEND OUT ACTIVE CODE (@D¢@h) AND WAIT FOR REPLY *-- 





tin ose os ; 


WEEN byte (Ø) j 
=> Put ("NO FILE OR MESSAGE INCOMING."); New lire; 


WHEN ctrl f 4 
=> Fut ( FILE READY TO RECEIVE. PLEASE RECFIVE IT $ 
Put ("REFORF PROCEDING."): New line; 
Put ("FAILURE TO DO SO WILL CAUSE UNPREDICTARLE 
Put ("RESULTS ); New line; 


WHEN ctrl m s 
=> Fut ( MESSAGF READY TO RECEIVE. PLEASE RECEIVE J 
Put ( IT BEFORE PROCEDING. ); New line; 


ro 


Put (“FAILURE TO DO SO WILL CAUSF UNPREDICTABLE 
Put ("RESULTS"); New line; 
ALCA E an 
=> Put ( DIRECTORY READY TO RECEIVE. PLFASF RECEIVE | 
Put (" IT BEFORE PROCEDING. ); New line} 
Put (“FAILURE TO DO SO WILL CAUSE UNPREDICTABLE "| 
Put ("RESULTS"); New line; 


WEFN resend " 
=> Fut ( DESTINATION FOR YOUR PREVIOUS SESSION IS )5 


s | 
Put ("NOW ACTIVE. PLEASE RESEND. ); Wey line 
Put ("FAILURF TO DO SO WILL CAUSE UNPREDICTABLF ") 
Put ( RESULTS j; New line! 
CASE: 
HE 


USER MAIN MENU *-- 


("CTRL S = SEND FILE }; New line; 

("CCTRL R = RECEIVE FILE ^); New line; 

("CTRL T = SEND MESSAGF (TALK) 7); New line; 
("CTRL _L = RECEIVE MESSAGE (LISTEN) ); New line: 
(“CTRL P = SEND DIRECTORY "); New line; 

(“CTRL_G = RECEIVE DIRECTORY ");.New line; 
("CTRL W = SET NET STATUS (WHO) ); New line; 
("CTRL B - RECFIVE BULLETIN BOA2D ^"); New line; 
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New line; 

new lines 
Put RNE JO 
Keyin (input); 


New line: 

CASE input IS 
WHEN ctrl_s => Sendfile; 
WEEN ctrl_r => Receivefile; 
WHEN ctrl t => Talking: 
WIN CUPIT -L]stenings 
WEEN ctrl N => Whos there; 
eNe to ees Receive dir; 
Wot Nene er ne Sent dir, 
WHEN ctri_t => Recv_ bulletin, 
WEEN OTEERS => NULL; 


END CASE; d 
Put ( CTRL X = EXIT. ANYTHING ELSE TO CONTINUE. ); 
Keyin (input): 

EXIT «HEN input = ctrl 1: 

Clearscrn: 


aa E O II USER EXITS *-- 
END LOOP; 

--* TELL CONCENTRATOR NO LONGER ACTIVE *-- 
DUST 


END Xfermain: 


—— vg O E à mm wm wm wm wm wm A D O mmm, e m AA Ala ee es ee ee eee ët gg vm vm. mmm vm vm eee vm vm wm wem om mmm. vm o 
mm vm ` vm em cee eee em emm — gf e mmm vm mag mm mm eee ee eee ee wë mm afp omg O ee 


WITH Myasrmlib, Myutil, Names; 
FACKASE BODY Bulletin IS 
USF Myasmlit, Myutil, Nares; 


AS LLE DEN BOARD *x-- 


Tax msg length: CONSTANT := 1682; 
max msg: CONSTANT :- 2£; 


receive: CONSTANT BYTE := byte (16#@D#); | --CTRL M-- 
send: CONSTANT BITE := tyte (158028);  --CTRL B-- 
TYPE msg IS 

RECORD 


message: ARRAY (1..max_msg_length) OF byte; 
mse length: Integer; 
ENDERECORT; 


msg list: ARRAY (1..max msg) OF msg; 


r2 


COMmend aby Ge. 

msg coU EUER. E 

byte count Enter ran 

msg tlock: ARRAY (1..block s] ONUS 


BEGIN 
Clezrscrns> 
Put ("NFS COMPUTER SCIENCE LABRATORY BULLETIN 22ARD.'"); 


New line: New line; 


LOOP 
--* TELL CONCENTRATCR BULLETIN BOARD ACTIVE AND WAIT *-- 
--* FOR REPLY Ý e 
Active; 


-—* MESSAGES INCOMING OR REQUEST TO SEND? *-- 


Waiting (command); 
IF command = receive THEN 
msg count :- msg count + 1; 





--* RECEIVE MESSAGES UNTIL CACOUN E E 


Recv tlock (msg_list(msg ccunt).message ADDRESS, 
msg list(msg count).msg length); 
Endmsgs:. 
Put E 
ELSIF command = send THEN 


=- SEND ALL MESSAGES” CURIA ie SON TOR? tee 


FOR 1 IN 1..rse EE 
tyte count := D: 
LOOP 


-—* FORMAT MESSAGES IN 128 BYTE BLOCKS FOR *-- 
--* TRANSMISSION. FOR FACH MESSAGE SEND &-- 
--* UNTIL BYTE COUNT = MSG_LENGTE THEN ADD *-- 
-—* BLANKS AS NECESSARY TO FILL IN LAST 128 *-- 
--% BYTE BLOCK. SEND NEXT MESSAGE UNTIL ALL *-- 
--* MESSAGES ARE SENT o A 


FOR j IN 1..block size Loo: 
byte court EE 
IF byte count » mse list(i).msg length TEN 
msg tlock (j) >=" spare: 
ELSE 
msa block E 
y msg list(i).message(byte count) 
FND IF: 


END LOOP; 

No: 

cose Bock ADDRESS, block size): 

Pe e COUN M Umseehisto)emse length: 
END LOOP; 


ENBENUOPNEc-PSsCcOCOUNT-- 


Yes; 
FND IF;  --COMMAND-- 
END LOOP; --MAIN-- 


ENT Bulletin, 


ar ar ier ber b b br k br m hik m m emi ec mm mt it i ec ec ee bs eee ee 


The following tatch file (xfer.sub) is used to compile the 
preceding programs: 


era myutil.sym 

erae myesmlit.syr 
era xferfile.syr 
era messages.sym 
ero c irectry.:syr 
era who.sym 

era bulltrd.sym 
era names.sym 
Sperm oa. jr) 

era myasmiit.jrl 
Encerterfile.jrl 
era ressages.jrl 
era wrrectry. jr! 
epsewhc.jrl! 

era bulltrd.irl 
era xfermain.jrl 
era xfermain.cmd 
jarus names.spc 
janus myutil.spc 
janus myasmlit.spe 
Joenus rr erfile.spce 
imu sEmessdses.spc 
NEIE EENG e DC 
janus who.spc 
jemusmoll. brd.spc 
janus myutil 
jasm8€ myasmlit 
Danwuserbterflle 
jenus messages 
gem  recvry 
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janus who 

janus bu uS 
janus xfermair 
jlink xfermain 
era tulletin.jrl 
era bulletin vend 
janus tulletin 
Jlink SED Du 





AFFENDIX E 


LISTING OF CONCENTRATOR FROGRA™ 


PACKAGE Concnare IS 
E TOTES CONSTANTS, AND VARIABLES *-- 


ie eos sa tus eS 
RECORD 
scourceport: Integer; 
destport: Integer; 
Process tyres yl; 
END RECOPEs 


max que: CONSTANT ze 552;  ——FOR 24 TERMINALS-- 
TYPE que IS ARRAY (1..max que) OF process status; 
queue: que; 


resend: CONSTANT BYTE := tyte (16*01%+); 
eno CONSTANT RYTR += byte (2); 
machno: CONSTANT := 24; 

ready: Ecolean; 


active list: ARRAY (1..machnc) OF Boolean; 


ENT Concnere;s 


mmr <p emm mmm a a ` emm. om <ms kk A e E ounie 0 vm A eee eee A eee A a bt, bt ee ee ee eee mit mit mt ñp e A mit a a 09 mmm mt mb nmr a e E A A vm s om ` mt emp vm 
me am ae me a ae A e e o emm emm mb y A s fr 12 bt emm O A vm A om om om emm emm mt emt n bt bt O bt, W bt abt, emm bt emm bt bt, bt, emm e e emm bt, emm bt, ms A ———— ——P— bt bp 


PACKAGE Concutil IS 
PROCEDURE Check queue (number_que: IN Integer; 
port: IN Integer; 
cus EG EE: 
result que: OUT Boolean); 
PROCEDURE Net_stat (destination: IN Integer); 
EIO EGE L 


WITH Coasmlib, Concname; 
ENCLACE"BODY Concutil IS 
USE Coasmlit, Concname; 


PROCEDURE Check_queue (number que: IN Integer; 
port: IN Integer; 
ouem ROUT Integer; 
result_que: OUT Boolean) IS 
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* AUTHOR: THOMAS VoM A 
* DATE: SEPTEMBER 198€ 

< DESCRIPTION: CHECK CQUERUE CHECKS THE QUEUE FOR €«AITINC S 

* PROCESSFS AND TELLS SOURCE ANPOPESRONGUDIONC THAM Ú 
* ANYTHING, IS WAITING. BOCLEAN RESULT OF TFE CHECK IS 

* AN OUTPUT PARAMFTER. 


BEGIN 
IF number que = @ THEN 


== NOTHING I te 


result_que := false; 
Queue status (port, zero); 
ELSE 


FOR i IN 1..(nurbter que + 1) LOOP 
IF queue (i).destport = port THEN 
querida i; 
result que :- true; 
LIT, 
END IF; 
que id <= is 
FND LOOP; 
IF que_ id = (nurter_que + 1) THEN 





--* NOTHING IN QUEUE FORO > 


result_que := false; 
Cueue status (port, zero); 


BOR 1 ING oO 
FOR" INP SSB 


ELSE 
| 
| | | 
==% DELAY FOR SOURCE *=—- | 
NULL; 
END LOOP; 
END LOOP; 
--* POLL SOURCE OF WAITING PROCESS *-—-- 
Check port (queue(queue id).sourceport, ready); 
IF ready TEEN 
--* TELL POLLED PORT WHAT IS WAITING FOR IT ói 


Queue status (port, queue(que id).prccess type) 


==* TELL SOURCE OF WAITING PROCESS TO RESEND 


BE tus (queue(que_id).sourceport, resend); 


p OPP EOLELED EOlr TO CO AHEAD *-- 


result que := false; 
Queve status (port, zero); 
END IF; 
END IF; 


FND IF; 


END Check queue; 


PROCEDURE Net stat (destiration: IN Integer?) IS 


--* AUTHOR: THOMAS V. WORKS 
--* DATE: SFPTEMBER 1986 

= DESCRIFTION: NET STAT CHECKS THE ACTIVE LIST FOR i= 
== HETIVE PORTS, PLACES LIST OF ACTIVE PORTS IN WHO LIST, *-- 


Le 


SAND TRANSVITS DAMATO REQUESTING TERMINAL. FEF 


wnum: Integer :- 9j 
who length: Integer :- 2; 


wee lists ARRAY (1. .machno)g99Nbrte; 


BEGIN 
MODE Tne. .machno LOOP 
IF active list (i) = true THEN 


>" OPC ACTIVE PORNMSSINEWHO LIST *-- 


wnum := wnum + 1; 
who list (wnum) := byte (1); 
who length :- who length + 1; 
END IF; 
END LCCP; 
Send who tlock (destination, who list “ADDRESS, 
who length); 


END Net stat; 


me Goncu til; 


oe es eee eee ee ees es es ees es ee es ce ee es ies a es es ees es eee es A ee es es es es es es mm og om om emm emm ie ae VUA 
-m ee ets emm 


PACKAGE Coasmlit IS 
PROCEDURE Check port (prt: IN Integer; rdy: OUT Boolean); 
PROCEDURE Connect ‘prt: IN Integer; addr: IN Integer); 
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PROCEDURE Queue status (prt: IN Integer; proc: IN byte); | 

PROCEDURE Send who tlock (dest: IN Integer: addr: IN Integer; 
len: IN Integer); | 

PROCEDURE Broadcast (s prt: IN Integer; t input: OUT byte); 

PROCEDURE Concxfer (s prt: IN Integer: d prt: IN Integer); 

PROCEDURE Xfer (s prt: IN Integer): 

PROCEDURE No xfer (s prt: IN Integer); 

FND Coasmlit; 


PACKAGE ASSEMPLY Coasmlib 
jmp mein 
PROC Check ports 


--* AUTEOR: THOMAS V. WORKS 
-—* DATE: SFPTEMBER 1985 





=-* DESCRIPTION: CHECK PORT CHECKS THE PORTS OF THE mm 
--* NETWORK LOOKING FOR TRE ACTIVE CODE (ØDØh). IT TIMES SN 
--* QUI. IE HT T IO O RIAS O w 
-—* DETERMINES IF A NL II HT TU IT < 
==% BOOLEAN RESULT IS THF ODIT BOTA en. x-a 
ready_ccde equ 2D8h 
recy rady equ ø2h 
timer equ 1¢h 
pop ax sreturr address 
pop di ¡deta address | 
pop dx ;dataport | 
push dx 
push di restore stack 
push ax 
again: ine. ax :»Statport 
mov tl, timer load timer 
loops: dec bl 
don X DP go to next port if no inpuE 
in al aoir ¡check for input 
end el, recv rdy 
jz 3995 
dec dx ‚dataport 
in al, ax ;get input 
out cd x a secho input 
cmp al, ready_code ¡Check for error 
jnz again sif error, get new input 
mone. inc dx »Statport 
mov bl, timer ;load timer 
time: dec bl ;timer to ensure echo received 
jae thisprt 720 to this port if timer = c 


inca dx 

and al, recv rdy 
time 

dec dx 

in al, ax 

out dx, al 

Cpa ready code 


jnz more 

eae prt: mey daila T 
ret 

nxtprt: mov [di], op 
ret 


END PROC Check port; 


PROC Connect: 


ae nO LHOR s THOMAS NEO DIES 
+ DATE: AUGUST 1986 

== DESCRIPTION: 
ett sal 


error code 
IE ole de 


equ ZEFh 
equ AFFh 


pop ax 
pop di 
pop dx 
push ax 


inc dx 

in ame, dx 

A ee CV UN 
jz hereé 

ECT 

ic al, dx 

out dr, al 

cipal ,werror code 
JZ. CEmcrs 

cmp el, finish code 
ZONE 

mov fdi], al 

inc dì 

Tne 

jmp here4 


bered: 


errors: dec di 

PEC. dR 

in al, dx 

amd al, recv rdy 
iz heres 

dec dx 


here5: 


NcHueck for input 


:dataport 

"eut 

Seno np 

¿Check for error 

if error get new input 
set ready to true 


¡set ready to false 


MI e á E A A A O A RD nee A A O A A O O A TO O A O TO A A O A a e e oo 


CONNECT RECEIVES TEE CONNECTION RECORD = 


;return address 

:data structure address 
sdataport 

srestore stack 


:Statport 
¡wait for data 


sdetaport 

‚get data 

secho data 

Check for error code 


¿Check for finish code 


¿Store data 

sgo to next location 
»Statrport 

¡get next data 


sgo back to previous position 


:»Statport 
swait for retransmitted data 


sdataport 


inea Fd 
out ual 
mov [di], el 
incida 

inc dX 

jmp here4 


done: ret 
END PROC Connect: 


PROC Queue status; 


--* AUTBOR: TEOMAS V. WORKS 


=x DATE: SEPTEMBSEROSSSG 
=> DESCORT ETTONE 


set retransmitted data 
secho retransmitted data 
soverwrite bad data 
¡CONO next location 
»statport 

¡get next data 


QUEUF STATUS TELLS THE SOURCE AND 


--* DESTINATION PORTS ABOUT THE PROCESSES WAITING IN THE 


SC gee 


pcp ax 
pop dx 
pop si 
push ax 

redo: mov ax, si 

out dx, ax 

raced 

in al, dr 

and aad a ECY ray 

OOO 

MEAN 

in el, dx 

cmp ax, si 

jnz redo 

ret 


Fooros 


END PROC Queue status; 


;return address 
sdataport 

‚value of queue status 
;restore stack 


;send out queue status 
;Statport 
swait for echo 


sdataport 

sget echo 

¡Check for error 

sif error, retransmit 
sif ODE InIsh 


PROC Send who block; 


-=RU THORE 
-—* DATE: SEPTEMBER 198€ 
=—* DESCRIP ETONE 


THOMAS V. WORKS 


SEND WHO BLOCK TRANSNMETS TAE LCITSTIOR 


--* ACTIVE PORTS FOLLOWED BY A SEQUENCE OF FOUR FINISH 


~-* CODES (@FFh) 
--* TERMINAL. 


pop ax 
pop tx 
pop si 
pop dx 
push ax 


INDICATING END OF LIST TO THF REQUESTING 


;return address 

slength of data structure 
sdata structure address 
¡destination port (data) 
srestore stack 


de 
a — 
36 al 


xt a 





POO pit. 


loopa: 


errer.: 


loopd: 


errore: 


Foopd2: 


over: 


Loops 


mov ch, 4 
mov al, [si] 
Out de. al 
Pac dex 
DG <E 
end EE ray 
Jz 1c00pa 

dec dx 

io al ir 
cmp aln iSi] 
jnz errorl 
inc si 

dec bx 

jnz loopb 
jmp over 


Mow aig, error code 
Out dr, al 

inc ar 

in al, dx 

end ety enecy Tay 
jz loopd 

dec dx 

inal a x 

Ship e e 
Inz2serrori 

mov al; error code 
out dr, al 

irc dI 

in al, dx 

and al; TeCY Ddy 
jz- a 

dec dx 

in al, dx 

cmp al error cote 
jnz-errorz 

jmp loopb 


MOVwdl,tinisn code 
out dx, al 

Aiea des 

inoab Med x 

onde recy Tray 

Size OO Pe 

dec dx 

Bn al,-«dx 
EE EE 
jnz errors 

dec ch 

jnz over 

ret 


¡finish_code counter 
¡send out char 


:Statport 
¡wait for echo 


:dataport 


get echo 
check for error 


get new char 
¿decrement length 
¡do again until length = @ 


;error in transmission 


:Stetport 
¡wait for echo 


:detaport 
¡was error code received 


sif not, retrensmit error code 
send second error code 


ystatport 
¿wait for echo 


‚dataport 

¿was error code received 

rif not, retransmit error code 
»retransmit char 


;end of transmission 


;stetport 
¡wait for echo 


dataport 
;get echo 
¿Check for error 


¿send out next finish code 
suntil four are sent out 
¿done 


errors: moval, finish vcede 


out dx, al ‚retransmit 
JEn X s StTatport 
inp loopc ¡Check again 


END PROC Send who blocks" 


PROC Eroadcast; 


== UNED ROA O EE 

== EDADES PRE 5 

--* DESCRIPTION: BROADCAST TRANSMITS DATA RECEIVED FROM 
-~* THE SOURCE TO ALL ACTIVE DESTINATION TERMINALS, 

-~-* BYPASSING THE SOURCE AND THE BULLETIN BOASD PORTS. A 
-—* BYTE IS RECEIVED FROY THE SOURS Te IR AS te peo 
-—* EACH DESTINATION, THEN BROADCAST CHECKS EACH ECHO FOR 
==" ERROR. BROADCAST FINISHES WHEN IT RECEIVES A SEQUENCE * 
--* OF FOUR FINISH CODES (ZF1h) FRCM EACH DESTINATION. ^ 





portnum equ 28h 
boardnur equ 23h 
Ctr equ 24h 
oE tone equ 0124h 
pul T equ @19Ch 
pop ax ¡return address 
BO pad 1 s temporary EM aL. 
por si Source port (data) 
push si ¡restore stack 
push di 
push ax 
Moche Y sload error code counter 
Mosel, Otr sload finish code counter 
mov tl, portrum 
mov th, boardnum 
mov dx, si load source port 
nextch mcm »Statport 
Ines in al, dx ¡wait for input 
and al, recv_rdy 
J2z9 omne 
dec ax ‚dataport 
linsel, ar ‚get input 
mov [di], al store input 
moder Dor. one load first destination port 
L two: cmp dx, si ¿der not” send to Source pcre 
jz skip 
Ge dx, bullport sorto bulletin toard pont 
jz skip 
out dx, al s Send input 
Skips add dx, 4 nex destination port 


13€ 


I three: 


nexus 


loopl£: 
Moor p: 
1] six: 


NESCIVEn- 


dec bl 
jnz l two 


aud ddr o2 
evens DOr tum 
dec th 

quz INUWIO 


EE ED 

mov th, boerdnum 
mov dx, portone 

cmp dx, si 

jz nert 

Cire. CUuLi port 
jz next 

tege 

in al, dX 

dec dx 

INIA eo vray 
jz next 

inal, dx 

cmp al, [di] 

jn2 errorb 

add dx, 4 

dec tl 

oe Dee 


add MENS 

moy tl, portnum 
dec th 

jnz l three 


mov th, boardnum 
cmp ch, Y 
J2 cont 


pop dx 

TEE 

in al, dx 

and al, recv _rdy 
jZ l six 

dec dx 

Yn als dY 


Capra Eero node 


nize beet ror 
mov el, [di] 


out dx; al 

ine dr 

iosal, dI 

aca cal, reev ray 


¡Continue sending until all 
sports are addressed 

snext board 

‚reload 


:comtinue sending until ail 
;btoards are addressed 
sreload for echo checking 


‚load first destination port 
EE EE EES EE port 


sor bulletin board 


¡Sta tpont 
¿wait for echo 
‚dataport 


g0 to next port íf no response 
¡get echo 
¡Check for error 


next destination port 


¡continue receiving until all 
sports are addressed 

next board 

‚reload 


sCOntinue receiving until ell 
‚boards are addressed 
‚reload 


DO errors, continue 


¡ERROR HANDLER 

get next error address (data) 
»Statport 

¡wait for echo 


‚dataport 
¿get echo 
¡check for error 


sif no error, retransmit char 
sinput 


:Statport 
¡wait for echo 


jz l Sie ven 


dec dx ‘dataport 
a alir get echo 
cmp al, [di] scheck for error in 


;retransmission 





jnz reerror 


dec ch yif we finally got it ricota 
»to next error address ! 
o Ee suntil ch =£ 
imp cont »comtinue 
reerror: mover; enu nC Ode Tes enfer once 
out c 
ampoboopi 
errorb: pushi ¡seve address where error 
;occurred 
CIEN ¡count addressess 
moval, Sur OTRO Oe 
out dx, al ¡send out error code 
jmp tack return to check other perii 
; CONTINUE 
cont: mov al. AAA ¡send echo tack to scurce 


mov dx, si 
Olena x al 


cmp al, end process ¡check for end cf process 
MZ noO end 
deca c ¡begin counting end process 
¡codes 
jz finis ¿until four in e row ere 
¿received 
jmp nex LC hb 
no erd: m nE MUT ‚if mO eer eload and 
imp 1erton ¡get next char input 
finis: ret 


END PROC Broadcast; 


ee oe ` om og ee ee A os es ee ee ae ee dm 2 ese eee ee ee ee ee eee ee ee ee eee ee ee A ee dë omg my O ëmm vm mm Ss = GU — = 


PROC Concxfer; 


--* AUTHOR: THOMAS V. WORKS 
--* DATE: AUGUST 1986 


--* DESCRIPTION: CONCXFER TRANSMITS DATA RECEIVED FROM *-- 
-—% THE SOURCE TO THE ACTIVE DESTINATION TERMINAL. A BYTE *-- 
-—* IS RECEIVED FROM THE SOURCE AND TRANSMITTED TO THE == 
--* DESTINATION, WITEOUT FRROR CHECKING. ERROR CHECKING IS *-- 
--* DONE BY THE TERMINALS. CONCXFER FINISHES WHEN IT de 
--* RECEIVES A SEQUENCE OF FOUR FINISH CODES (@F1h) FROM X *-- 
--* THE DESTINATION. d 
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end DM SS 


Stant: 
o 


TOODZ2: 


MOE yeu: 


Ime 


equ Fih 


pop ax 
DOP ec. 
pop box 
push ex 


mov di, 4 
D B 

inc dx O 
irtal, dr 

and ral nes vV ITAY 
MO 

dec dx 

a Y 

mov dr, Cx 

oüt dz, al 
incar 

Inal, ax 

aud Teo may 
Op E 

siete bs 

in al, ak 

mov dx, bx 

Oum dr. a 

cmp al, end process 


jnzamnotyet 
CeCc di 


izain 

jmp start 
mov di, 4 
jmp start 


ret 


END PROC Corexfer;: 


amo um ffr cum ap a A ea SP ap Sew 2 ap A SP Sp ap «ep 4 ap A SP Sp a == SP SP SP SP SP ae SP ew ae a A a SP a ew = ap SP SP SP SP Sp SP SP SP SP A A Sap mmm gf ge ae a mmm ge 


BRO L GT >; 


--* AUTHOR: THOMAS V. WORKS 


;return address 
sdestport (data) 
:sourceport (data) 
¡restore stack 


¡finish code counter 
;sourceport (data) 
:Statport 

¡Check for incoming char 


ndataport 

¡get incoming char 
¡destport (data) 

¡send char to receiver 
:Statport 

¡check for echo 


sdataport 

¡get echo 

;sourceport (data) 

;send echo to transmitter 

if end process code, begin 
¡counting 

O get next char 

suntil four end process codes 
rare received 


¿reload finish code counter 


A SANA Ses 
e N EERI RANS MITS TRE XFER CODE (1) TO THE *-- 
==* SOURCE INDICATING THAT THE DESTINATION TERMINAL IS = 
sI Mm 
pop ax Dn address 
pop dx ;sourceport (data) 
push ax ;restore stack 


ie eles mov el, Gi 
out. cl 
LD 

loopxl: "mper 
at recy ray 


¡set send ready "uote 


¡statport 
wait for echo 


jz 1001 

dec dx »dataport 

ir cope dx ¿get echo 

cmp el, 01 Check for error 

jnz mil iif error, retrensmit 
ret 


END PROC Xfer; 


=~ me "ës em ew mmm vs Ze ee gem m mm app ep ge oe es demm es ss ee ss em, demm emm gr ee es es ee ee es es Ss es es ee es es ee ss es ees eee eee es 


PROC NO Xem 


-—* ACTION ARICA V WIRES 

-—*5 DATE: POF TEMPER TI 

--* DESCRIPTION: NO_XFER TRANSMIVS = TES NO XFER CODE (a) K 
--* TQ THF SOURCE INDICATING THAT THE DESTINATION TERMINAL * 
-= IS NOTENN » 


pop ax ;return address 
pop ar ssourceport (data) 
push ex restore stack 





HHI mov al, 22 
out dx, al 
inc dx ;Statport 

loopxe d NM ¡wait for echo 
and 3l, recv rdy 


¡set send ready to false 


Zoo p Ke 

dec dx :dataport 

in al, di ;get echo 

cmp al, 99 scheck for error 

joz uml sif error, retransmit 
rey 


END PROC No xfer; 
mein: 
END Coasmlit; 


WITH Coasmlit, Concutil, Concname; 
PACKAGE EQ) oui > 
USE Coasmlit, Concutil, Concname; 
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ee del it ae ea ae ae ae ae aie att ak ae ae ae ea ak 
= MAIN CONCENTRATOR PROGRAM *-- 


— E E EE E de de de e A de 


ieececonctn IS 
RECORD 


process: 
source: 
destination: 


END RECORT: 


connecti 


Str. tf: 
CLTS: 
Orgs Mo tele 
eG leew 
CITI E: 


cn. 


CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 


byte; 
byte; 


E 


CDD 


BYTE 
BYTE 
BYTE 
BYTE 
BYTE 


tes 


Eyre 
tyte 
tyte 
tyte 
ty-te 


HRK R KRE NOR Ze OK OE IE OE AE A — 


(16#06# 
(16#0D# 


(16417# 
(165028 


n 
) 
D 
); 


CONSTANT 
CONSTANT 8; 
CONSTANT := 
CONSTANT := 


bcardno: 
Porto ; 
fees EpOrt $ 
Pestmort: 


u 
CA 


1651004; 
16#19C#; --BULLETIN BOARD-- 
Integer; 

Boolean; 
numqueue: Integer := 
index: Integer := 0; 
pewsgueue: Integer: 
machine count: Integer :- 
input: tyte: 


pom port: 
inqueue: 
Ø; 


Ø; 


PROCEDURE Convert (idx: IN Integer) IS 

--* AUTHOR: THOMAS V. WORKS 

DATE: SEPTEMBER 1986 

DESCRIPTION: CONVERT CONVERTS THE CONNECTION RECORD *-- 
=-* RECEIVED FROM TEE TERMINAL TO PEYSICAL PORT ADDRFSSES. * 


A 
-— cm dei 
"lo 
- emp ZS 


BEGIN 
CASE queue(idx).destport IS 


WHEN 1 => queue(idx).destport :- 15451904; 
WEEN 2 -5 queue(idx).destport :- 1651048; 
WEEN 3 -5 queue(idx).destport :- 1651289; 
WHEN 4 -5 queue(idx).destport :- 1€419C4; 
WHEN 5 -»5 queue(idx).destport :- 1541104; 
WEEN € -5 queue(idx).destport :- 1681144; 
WHEN 7 => queue(idx).destport :- 16481183; 
WEFN £ => queue(idx).destport := 16411C4; 
WIEN 9 -5 queue(idx).destport :- 16814085; 
WHEN 1% => queue/idx).destport 1641448; 
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WHEN 11 => queuelidx).destport := 16#145+#; 
WHEN 12 -^ queue(idx).destport :- 16814C£; 
WEFN 12 -5 queue(idx).destport :- 16451504; 
WHEN 14 => queue(idx).destport :- 1641544; 
WEEN 15 => queue(idx).destport := 16#158#; 
WHEN 16 => queue(idx).destport := 16#15C#; 
WHEN 17 => queue(idx).destport := 16#12@#; 
WHEN 18 -? queue(idx).destport :- 1€4184$j; 
WHFN 1S => queue(idx).destport :- 1641885; 
WEEN 2% => queue(idx).destport := 16418C4; 
WEEN 21 => quevue(idx).destport := 16#19@4; 
WHEN 22 => queue(idx).destport := 16#194#; 
WHEN 23 => queuelidx).destport := 16#198#; 
WEFN 24 => queue(idx).destport := 16#19C#; 
WHEN OTHERS => NULL; 

END CASE; 

CASE queue(idx).sourceport IS 
WHEN 1 => queue(idx).sourceport Ze 16*1004; 
WHFN 2 => queue(idx).sourceport := 16#194#; 
WEFN 3 => queue(idx).sourceport := 1641084; 
WHEN 4 => queue(idx).sourceport := 16*10C4; 
WHEN & => queue(idx).scurceport := 1641104; 
WHEN £ => queue(idx;.sourceport := 1541144; 
WEEN 7 => queuelidx).sourceport := 15*118*; 
WHEN £ => queue(idx).sourceport Ze 16$11C+; 
WHEN O => queue(idx).sourceport := 16#14@#; 
WFEN 14 => queue(idx).sourceport := 16#144#; 
WFEN 11 => queue(idx).sourceport := 1641484; 
WHEN 12 => queue(idx).sourceport := 16#14C#; 
WHEN 13 => queuefidx).sourceport := 16#150#; 
WHEN 14 -5 queue(idx).sourceport :- 1651544; 
WETN 15 z5 queue(idx).sourceport :- 1681584; 
WHEN 1% => queue(idx).sourceport := 15*1€C48; 
WEEN 17 => queuelidx).sourceport := 1541804; 
WHEN 18 => queuefidx).sourceport := 16#184#; 
WHEN 19 => queue(idx).sourceport := 15#188#; 
WHEN 2@ => queue(idx).sourceport := 16£18C4j 
WHEN 21 -? queue(idx).sourceport :- 1641994; 
WEFTN 22 -5 queue(idx).sourceport :- 168194; 
WEEN 23 -5 queue(idx).sourceport :- 1651984; 
WHEN 24 z^ queue(idx).sourceport :- 16419C&£; 
WEEN OTHERS => NULL; 

END CASE; 

END Converts 
BEGIN 
LOOP [D ME 
pollpormwe:= firswport: 


machine ccunt ze 03 
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Outer: 
mor f° iN ie eed rd pe LOOP 
HOR OE Uno LOOP 

Mac DIM emecountea.— Machine count + 1; 
active list'mechine_ count) := felse; 
Check port (pollport, ready); 

IF ready THEN 

active list(machine count) :- true; 


--* CHECK QUEUE FCR WAITING PROCESSES FOR *-- 
--* POLLED PORT i 


Check queue (numqueue, pollport, index, 
inqueue); 


If inqueue THEN 


SN WAN PROCESS FIRST CE 
A ESMAS CONNECTION WITH SOURCE OF S 
Eet TC EM PROCESS == 


Connect (queue(index).sourceport, 
connection ADDRESS); 


ADE CONNECTION RFCORD *-- 


queue/index).sourceport :- 
Integer (connection.source) ; 
queue (index).destport := 
Integer (connection.destination); 
queue(indexj.process type :- 
connection.process; 
Convert (index); 


= ELS OURCE TO SEND *-- 
Xfer (queue(index).sourceport); 
--* YSTABLISH DATA COMMUNICATION CHANNEL *-- 


Concxfer (queue(index).sourceport, 
queue(index).destport); 


==* REMOVE PROCESS FROM QUEJE *-- 
numqueue :- numqueue - 1; 


FONEM [Np 22.255 LOOP 
TORN 25e LOOT 


NULL; 

--* DELAY TO ALLOW RECEIVER TO GET READY *-- 

--* TQ SEND &-- 
END LOOP; 
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END LOOP; 
Check port ponla ed 


sl 


--* EI ETebe 
-=> TIME, UTE IL IR RH T T SE 
EXIT Outer WHEN NOT ready; 


—--* WOEN WAITING PROCESS IS FINISHED *-- 
--* TELL POLLED PORT NOTHING WAITING *-- 


-= AND PROCESS ORIGINACHRKECUNST Kr 
Queue status (pollport, zero); 
END TEMEMESINOUEUE 


== TOS SMN EW A AQUIS T r=- 
--* FSPABLISH CONNECTION WITH SOURCY OF =e 
-—* ORIGINAL REQJEST e 


Connect {pollport, connection ADDRESS); 
ven FREE OU ADE OSO == 

new queue := numqueue + 1; 

ce DECODF CONNECTION *--— 


queue(new queve).sourceport := 
Integer (connection.source); 
queue(new queue).destport :- 
ý Integer (connection.destination); 
queue(new queue).process type :- 


connéction.proceses 
Convert (new queue); 


IF connection.destination = byte (2) THEN 


-—* POLL ALL DESTINATION PORTS EXONEPTOS 
--* SOURCE AND BULLETIN BOARD Tex 


pollport := firstports 
FORSK UN CL DO OS 
IF (pollport /= 
queue(new queue).sourceport! 
AND (pollport /= lastport) THEN 
Check port (pollport, ready); 
IF ready THEN 


MEL Li DESTINATION == 


queue status (pollport, 
connection.process); 
END IF; 
END IF; 


14€ 


e eg 
—— — 


em E EE 


poop >= pollport + 4; 
Nee Cre. 


BORN 12.255 LOOP 
HOHER. 299! bOOP 
NULL) >> DELAY TO ALLOW RECEIVER *-- 
S Gh READY m 
END LOOP; 
END LOOP; 


SAS OUROE- TO” BROADCAST *-- 

Xfer (queue(new queue).sourceport); 

Broadcast EE ere, 
input); 


EE AND RESUME POLLING “-- 


pollport := queue(new_queue).sourceport; 
ELIO mec tion process = Ctrl_w THEN 


—--* TELL SOURCE TO RECEIVE NET STATUS ae 
EE REES DER STATUS 


Xfer (írollport); 
Net stat (pollport); 
ELSE 
--* PROCESS NORMAL REQUEST *-- 
--* IS DESTINATION ACTIVE? *-- 


Check port (queue(new queue).destrport, 
ready); 


IF ready THEN 
-* TELL DESTINATION WHAT IS COMING *-- 


Queue status (queue(new queue).destport, 
queue(new queue).process type); 


væ IEL SCURCE TO SEND *-— 


Xfer (pcllport); 
CITE cion process —weturl b THEN 


--* ESTABLISH CONNECTION WITH *-- 
——* BULLETIN BOARD EE 


Concxfer (queue(new queue).destport, 
queue(new queue).sourceport); 
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END 


END 


PLE 


7 


--* ESTABLISH DATA COMMUNICATION *-- 
--* CFANNEL li 


Concxfer (queue(new_queue).sourcerort, 

queue(new queue).destport): | 

END IF; 
ELSE 


--* TELL SCURCE, DESTINATION INACTI VOR 





No_xfer (pollport); 
IF (queue(new_queue).process type = ctrl 
OR (queue(new_queue).process type = ctrl r 


TREN 
——* PLACE PROGHSS 21 No Clie 
NEN CDDESOU SAGE ve 
numqueue := numqueue + 1; 
END IF; 
END IF; 
END IF; 


END Dal ` DGS 


pollport := poll porte, 
EXIT WHEN pollpert = lastport:; 


--* DON'T POLL BULLETIN BOARD *-- 
END LOOP; —=INNER FOR TOOLS 


POlTpOTr Va pO ll porte moe. 
LOOP Outer; 


FND. LOOP: —-MAsIN TOURS 


Poll; 


mmm om A mmm rel r, emm o A O re mr, m w, reb es A A E A A AH Y A E A O A A om wm mmm << emm emm emm O A e TO emm A emm om emm emm O O E vm A A P emm sm emm emm mm — om i a e 
-e -e a O met bk bk e m reb n re b m MÀ emm om reb om emm emm om vm ` emm m mm mmm r emm re — emm r C ` mmm mmm emm omg, om, emm ee O ee eee om eee ee reb r m, e mmm o a m 


The 


followi 


ng batch file (conc.sub) is used to compile the 


preceeding programs: 


ere 
era 
era 
ere 
era 
era 
ere 


coasmlib. 


CONC Ute 


concnale. 


Concur 


Coasmlib. 


pode jn! 
pO lnn TTG 


sym 
.Sym 
sym 
sar Ll 
Jel 


Janus concrame.spc 
pomuseccastlit.spce 
rus comcutil.spc 
jasm&5 coasmlit 
HESE EECH EE 
jenus poll 

ieee pol) 


149 


REC EN DEX. SN 
GLOSSARY 


Ll. ae ne 


7-170 is the specific model “ame ror “The ericree 
computers usad Yn THIS NEM The vendor 1isTZeĘ3iti ices 


Systers. 


SE EE 
SBC is an acroryn for Since Ecard nacen It IS 
configuration of VLSI (Very Large Scale Integraticn) cir- 
sultry on one computer boerd Cape leis Sper? Orn 72a 
functions of a computer. The SEC 1s the driving force ae 
COS CERRO Tre vendor of the &6/12A SEC used Tr ivi 


thesis is Intel Corporation. 


3. Conméent raver 
The Concentrator is the collection of hardware and 


software that performs the network switching functions. 


4. MULT Reus 
MULTIBUS is the specific model name for the herdware 
that allows multiple SBC' s to Communicate “directly wie 


common memory. 


9. Locel Aree Network 
A Local Area Network is ary network that operates 


exclusively within a low radius (mex 5@ miles) regicn: 


usually a single tuilding or a group of buildings. 
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SO rs ta tion 
A Workstetion is viewed as the Z-180 microcomrputer ara 
C oead peripheral devices thet perform the application 


functions Cf tza network. 


Came COCess 
Frocesses ere viewed es the transfer of files, 
messages, or directorys tetween Z-100 workstetions. Each 


precess has a sending and a receiving function. 


Samcommunvedti on 
Communication is viewed as transmitting data and/or 
commends tetween the sending and receiving functions of a 


process. 


LO 


Tata Communication Channel 
late Communication Channel refers to the channel or 
‘pathway’ used to transfer intra-process communications 


tetween Z-126 workstations. 


Ee Switching 
Circuit Switehing refers to the method of network 
communication whereby the entire message containing data and 
commands is transmitted from the sender to the receiver along 


a dedicated communication channel. 


MO ys 


Ports are channels througb which processes communicete. 


EST 


T 


USART is an acronym for Universal Sym TO cu" 


Asynchronous Receiver/Transmitter. It isa microprocessor 
that provides communication interface tetween computers or 


between a computer and a peripherd) sdevices 


Ven. NES 


NPS is an acronym for Naval Postgraduate School, 


Monterey, Celifornia. 
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